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• Premetto et» sono un vostro abbo- 
nato, e tralasciando I soliti complimenti 
e apprezzamenti di rito, che condivido 
In pieno, vengo al nocciolo della que- 
stione, Sono un utente Commodore, 
posMgflo un 084 e mi diletto nel com- 
pilare programmi In basic. Ed ecco II 
punto: da quando sono entrato ìn pos- 
sesso del Slmon's Basic ho potuto ac- 
certare e vedere la potenza di questo 
homi, fino a quel momento semlna- 
scosto fra le migliaia di peek e patte» e 
soprattutto la tacititi di cullo si pub 
programmare, A parte tutte le istruzio- 
ni che facilitano la stesura dei pro- 
grammi, la programmazione struttura- 
ta, la manipolatane detto schermo, 
ecc. sono stailo affascinato dalla velo- 
cità incredibile e soprattutto dalla fed- 
irti estrema con ed si può disegnare In 
afta risoluzione disponendo di coman- 
di semplic iss imi rapida e precisi, per 
non parlare poi detta gestione degli 
aprite* che con ilSlmonsè un gioco da 
bambini. Suonare in $4mons T Basic poi 
è una cosa v er amente facile, niente più 
calcoli niente più insuccessi- Queste 
stringata lettera mi auguro raggiunga 
io scopo dì promuovete la diffusione 
del SJtnons' Basic perchè credo che 
l'accoppiata C64 più Sirnons’ renda il 
C64 rhome più potante, più versatile, e 
soprattutto rhome più facile da usare. 
Puntualizzo inoltro che U Slfnons T è dif- 
fusissimo In cassetta a dischi e copia- 
bile, come altrettanto facilmente si tro- 
vano la Istruzioni. Invito pertanto an- 
che la redazione a tener conto di questi 
suggerimenti e a pubblicare listati in 
Slmons* Basic. Per chiudere vorrei, se 
possibile, sapere a che indirizzo deci- 
male Inizia la pagina grafica con 1 Si- 
mona’ a se è possibile trasferire su di- 
sco un'Immagine in alta risoluzione 
creala con II Simon* 1 e se lo è, come 
farlo. (Rosignoti Bruno - Via Tevere, 6 - 
06089 Torgiano PG). 

□ Indubbiamente il Simons' Basic è uno 


strumento veramente eccezionale da utiliz- 
zare con il C64 Versatilità, facilità d’uso, po- 
tenza sono te sue performance^. Sulla nostra 
rivista presto si inizierà a parlare dei comandi 
tipo Simons’ in quanto ti C16 ed ri Plus 4 ne 
prevedono alcuni tipi tn comune. Escludiamo 
ad esempio la gestione degii sprites dato che 
i nuovi prodotti Commodore ne sono sprovvi- 
sti. E non solo, anche i comandi di sound 
sono limitati, dato che C16 e Plus 4 hanno 
una generazione di suoni come quelli che 
troviamo sul Vte 20. Comandi tipo CIRGLE, 
DROW, BOX. etc. sono uguali o estrema- 
mente simili anche come sintassi di comando 
ai corrispondenti dei nuovi prodotti. 

9 Felicissimo possessore di un Com- 
modore 64 dotato di Drive e stampante 
MPS 802 (ottima tra Poltro) uso preva- 
lentemente come software il Cale Re- 
soti, il quale mi consente di aggiornare 
e archiviare con efficienza e puntualità 
la mia contabilità. Dopo aver passato 
ore (per non diro giorni) nello studio 
delle innumerevoli passibilità da que- 
st'uftimo offerte, mi sono arenato com- 
prensibilmente, in quanto non esiste 
spiegazione esauriente nelf’apposito 
manuale, davanti all'Istruzione BIF- 
FILE. Come potrete verificare, tutto è 
rimandato alle cortesie del «Data Inter- 
change Format Clearinghouse» di 
Cambridge. Gradirei che voi ampliaste 
le conoscenze a questo riguardo, in ca- 
so contrario mi vedrò costretto a rinun- 
ciare alla favolosa passibilità d'inter- 
secare i “data» tra software. {Adalberto 
BerseW - Bologna) 

□ it sistema che utilizza i D3F-FÈLE lenda a 
fornire una intercambiabilità dei dati Questo 
fatto tende a creare uno standard tate che 
altri pacchetti software possono attingere a 
dall elaborati con altri package Così dei dati 
Creati con il Cale Resull possono essere uti- 
lizzati con ad esemplo un word processor 


• Vorrei sapere se esistono i manuali 
di istruzioni ìn italiano della stampante 


MPS-8G1 e dèi floppy disk 1541. E’ pos- 
sibile sapere come tare per accedere al 
dati su disco non in modo sequenziale 
ma SUÌC64? 

□ La Commodore italiana ha iniziato ad in- 
serire nelle confezioni del Ttoppy disk 1541 
anche un libretto In italiano. Se nella sua sca- 
tola ha trovalo quello in inglese non si disperi, 
senza alcun dubbio il suo rivenditore sarà 
certo disponibile per farle delle fotocopie (a 
pagamento o no, dipender). Invece per la 
stampante MPS-801 esiste solo quello 
originale. 

• Ho avuto modo di leggero il n. 2 di 
Commodore ed ho trovato molto inte- 
ressante gli artìcoli della rivista. Pos- 
siede un C64, Vi sarei particolarmente 
grato se nei prossimi numeri pubblica- 
ste qualche programma di utilità sui se- 
guenti argomenti: gestione di condo- 
mini - contabilità semplificata - stampa 
di lettere, atti, eoe. - sviluppo di sistemi 
per 1J gioco del totocalcio. Chiedo inol- 
tre a proposito dell'articolo comparso 
sul n. 2 (Stampa Fatturo), se è possibile 
sostituire con un opportuno comando 
di allargamento caratteri, tutta la parie 
grafica inerente te stampa delPìntesta- 
zinne che dia come risultato lo stesso 
da voi ottenuto. (Rossi Ferruccio). 


□ Argomenti inerenti a programmi (o me- 
glio a procedure gestionali) richiedono Induri- 
bramente mollo spazio sulla rivista, ciò nono- 
stante quando sì potrà trovare una relazione 
valida, questa troverà te pagine necessarie. Il 
programma stampa fatture può prevedere 
T allargamento dei caratteri in stampa, poiché 
ogni stampante ha una sarte comandi atti a 
lar eseguire f allargamento che l'attivazione 
grafica, NLQ. ecc, Ecco che si rende neces- 
saria la consultazione del relativo manuale al 
fine di conoscere quali e quanti CHRS do- 
vranno essere inviati Neil ‘articolo «Stampa 
Fattura- vengono citali quei codio che tanno 
eseguire alla MPS-tìOt determinate funzioni 
(vedi righe 333 fino alla 335). 


4 -Commodore 



Da questo numero dt Commodore tutti i listati riportano in testa te informazioni 
relative ai tipi di computers sur quali è possibile utilizzare il programma in oggetto. 
Noi per primi* quindi, forniamo listati compatibili anche con i nuovi prodotti Corri- 


ESCLUSIVO 


Commodore -5 


• Ho conseguito nel 1983 la Maturità 
Tecnica industriala in informatica a Ca- 
tania, a dai febbraio 1984 ho trovato 
impiego presso un concessionario 
Commodore della provincia come col— 
laboratori tecnico software/hardware. 
Mi occupo in particolare dalla ripara- 
zione delle macchine guaste. Ma in taJ 
senso ho potuto constatare che manca 
una documentazione approfondita ri- 
guardo ai componenti usati ed ai difetti 
ri levabili quando qualcuno di essi si 
guasta, con conseguente eccessiva 
perdita di tempo nella ricerca della cau- 
sa dei malfunzionamento. Allora ì miei 
quesiti sono I seguenti: esistono pub- 
blicazioni che trattano specificamente 
problemi tecnici? E se sk f potreste Indi- 
carne qualcuna? Tutto questo ovvia- 
mente per una migliora qualificatone 
professionale, per chi, come me, opera 
nel settore debugi ng t con conseguen- 
te vantaggio per l'utente finale. (Lucio 
Toscano - Catania}. 

• Sono un non letica possessore di un 
computer Commodore 84. Ho scatto ta- 
le computar per le alte pronazioni che 
tale macchina offriva, per l'affidabilità 
e, non di secondaria importanza, per il 
prezzo sicuramente concorrenziale ad 
altri computer analoghi. Però più mio 
avanti e più mi accorgo di non aver fat- 
to una buona scelta. Innanzitutto all'at- 
to dell'acquisto mi vedo rilasciare dai 


negoziante una garanzia di tre mesi. 
Non sono riuscito ad accertare sa la 
garanzia di tre mesi è quella rilasciata 
proprio dalia Commodore oppure di 
una garanzia del rivenditore. In ogni 
caso la cosa mi avrebbe lasciato Indif- 
ferente (entro certi limiti), se li compu- 
ter avesse funzionato a dovere. Di fat- 
to, dopo pochi giorni dairacquisto, mi 
accorgo ohe il CG4 tende molto spesso 
a bloccarsi inspiegabilmente, mandan- 
do - e scusate il termine - a quel paese 
programmi che delie volte avevano ri- 
chiesto ore di lavoro al computer. (] fe- 
nomeno si manifesta dapprima cam- 
biando lettere e numeri del listato con 
Simboli non introdotti precedentemen- 
te; poi alla richiesta del run o del listalo, 
il computer o si blocca eliminando to- 
talmente il controllo della tastiera op- 
pure Inizia a visualizzare una intermi- 
nabile serie di SYNTAX ERRORI, ad ogni 
ulteriore richiesta di run o di Kst. A nulla 
vale ovviamente premere simultanea- 
mente i tasti run/ stop e restare. II com- 
puter toma a «funzionare» solo spe- 
gnendolo e riaccendendolo. Devo sot- 
tolineare che sono sicuro di non com- 
mettere nessun errore durante la ste- 
sura del programma, che non introdu- 
co parole chiave del basic tipo «watt» o 
simili o valori che possono far bloccare 
la memoria del computer anche se del- 
le volte questi compaiono come passo 
dì programma. Ho lavorato per anni 


con un HP 85 (computer di tutt’altro 
mondo) che non ha mai manifestato fe- 
nomeni di questo tipo. Ora non credo 
che il basso costo dal C84 sia motivo di 
cosi bassa affidabilità. Durante il perio- 
do di garanzia ho portato il computer 
dal rivenditore, il quale oltre a non aver 
capito bene 11 problema (da notare che 
si tratta di un negozio che va per la 
maggiore a Roma e che vende esclusi- 
vamente computer*), mi assicurava 
che lo avrebbe sottoposto a un testo 
che avrebbe permesso di appurare la 
zona di origine di tele fenomeno. Alla 
fine, dopo due giorni, mi viene riconse- 
gnato Il 064 dicendo che quest'ultimo 
funziona perfetta mefite e che risponde 
al test e che par loro il computer non ha 
nulla (forse allora le ore perse erano 
solo un brutto sogno). Ho provato a 
spiegare che se II computer si trova, al 
momento del test, a funzionare perfet- 
tamente, non può presentare al test 
nessun difetto. Afta richiesta, forse da 
parte mia un po’ pretenziosa, di usarlo 
fino a quando non «I manifasta va il fe- 
nomeno, mi hanno risposto che non 
potevano perdere tempo con H mio 
computer (forse perchè l’ho pagato so- 
lo 625.00Q ire). Dopo questo lungo sfo- 
go chiedo a voi cha ritango persona di 
fiducia, vista la vostra rivista, cosa 
debbo fare: debbo forse gettare il com- 
puter e quindi le 625.000 lire dalla fine- 
stra? Spero che voi possiate consi- 
gliarmi sud 'origine del fenomeno, se 
dipende da un guasto o da un mio pos- 
sibile errore Od eventualmente dirmi 
dove mi posso rivolgere a Roma per far 
riavere al mio computer la capacità di 
non far svanire ore ed ore dì paziente 
programmazione. MI scuso con voi se 
questa lettera vi farà perdere del tempo 
e vi ringrazio fin d'ora per la risposta 
Che attendo con Impazienza. (Maurizio 
Gàtetreti). 

Effettivamente fa garanzia per gli apparati 
Commodore è della durata di tre mesi, con- 
cessi dai rivenditori locati in accordo con la 
Commodore Italiana. Il difetto riscontrato nel 
suo C64 è ben difficile da focalizzane, in 
quanto non si sa se dipende da una zona di 
memoria RAM oppure ROM (con più proba- 
bilità da quest ultima). Per ciò che concerne 
Ea documentazione tecnica, questa è possibi- 
le soto tramite i centn di assistenza dai riven- 
ditori regionali, quindi le copie di queste do- 
cumentazioni possono essere considerate 
confidenziali La sintomatologia dei guasti 
non è m pratica disponibile se non •chiac- 
chierando'* con un tecnico competente. 


Una sola riga 

* • 

Tutti i lettori che invieranno programmi costituiti da una sola riga t come ad 
esempio : 

IL MOSCHINO PAZZO 

1 AS= H CUPHLEFTHD014MJCRIGHT] -:PR1 
NT * £ LEF T 3 C R VS 1 "MIO* C Pi* , RND C 1 ) *4 
+ 1 „ 1 ) “ CLEFT3 LR^OFF l* u * sFOR 1 = 1 T 
0 30=NEKTiGGTO 1 

che verranno pubblicati sulla rivista saranno ricompensati con un libro a scelta 
tra: Programmo in Basic di Clizie Merli; 64 programmi per il Commodore 64 di 
Gloriano Rossi; Utility e routine per il Commodore 64 di Gloriano Rossi . 

I programmi potranno avere uno scopo oppure no. Ciò non importa! I lavori 
dovranno pervenire su caria con una piccola descrizione, citando il nome, 
rindirì 220 e ìl libro scolto. 

Tutti i programmi saranno presi in dovuta considerazione. 
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CONVERSIONI 

DALL’ITALIANO 

ALL'INGLESE 


(Ovvero: dalle unità di misura anglosassoni al sistema decimale) 

^Francesco Gatti 


Se si domanda a qualcuno dei no- 
stri amici, beh... anche a noi stessi, co- 
sa egli sappia riguardo al sistema di mi- 
sura usato nei paesi anglosassoni, vi ri- 
sponderà vagamente con dei vocaboli. 
Ad esempio: yarde, piedi e pollici. Sa- 
rà difficile comunque che vi dia un 
rapporto di conversione preciso. In un 
paese come il nostro, dove il sistema 
metrico decimale è il sistema di misura 
adottato ufficialmente, ciò non com- 
porta particolari disagi. 

Se però si viaggia spesso nei paesi 
inglesi, comprese le Americhe, o se si è 
in contatto col mondo degli affari, è 
indispensabile conoscere il sistema an- 
glosassone. Questo perchè, nonostante 
il sistema metrico decimale sia il più 
usato nei mondo, talune misurazioni 
rimangono in rapporto con il sistema 
anglosassone. 

Per fare degli esempi più semplici 
pensale a come noi valutiamo le di- 
mensioni di un televisore: in pollici 
(fra l'altro non tutti sanno che la misu- 
ra dei pollici di un televisore intende 
proprio la diagonale dello schermo). 

Sappiamo che un TV da "ventun 
pollici 1 ’, è più piccolo di quello da 
"ventisei pollici”, ma pochi di noi san- 
no dargli una misura metrica precisa e 
cioè, rispettivamente, 53.1 e 65.7 cen- 
timetri di diagonale. Un altro esempio: 
se si leggono le quotazioni di borsa si 
sarà notato che le sementi in genere 
vengono trattate in ‘bushel* (pron,: bu- 


acci), e sapere che corrispondono a 
36.36 litri c'è senz’altro utile. 

Da qui il programma che oltre ad 
aprirvi il mondo delle unità di misura 
inglesi (non tutte, però, sta a Voi im- 
plementarlo) vi sarà utile per imparare 
un po’ l’uso delle istruzioni RE AD- 
DATA, 


Descrizione del programma 


Come prima cosa ho diviso le unità 
di misura, ciò per facilitare la loro trat- 
tazione in: 

• unità di misura di capacità; 

• unità di misura di peso; 

• unità di misura lineare. 
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CROSS R E F E R E N C 

PROGRAMMA : RRTCONVERS. PRO 

E 

_ — 


VfìR- j 

- . . -j 

! LINER 

b: - 

BEL PROGRfìMMR 


-i 

j 

R 1 

t- 

! 

! 580 

530 

740 

750 



A* ! 

! 22S 






C$ ! 

! 23@ 






0 1 

210 

220 

230 

240 



imi ! 

220 

580 

740 

810 



IT$< ! 

238 

580 

650 

748 



K i 

27@ 

280 

290 

300 



Q ! 

! 290 



, 



R ! 

518 

520 

538 

610 

620 

650 

! 

690 

770 

788 

010 

850 


RI ! 

650 

690 

310 

850 



8 ! 

440 

450 

460 

570 

530 

65@ 

! 

690 

730 

748 

810 

858 


Si ! 

670 

330 





T ! 

200 

220 

230 

250 



TEÌC i 

360 

370 

380 

398 

470 

570 

i 

730 






UN i 

630 

698 

790 

850 



V ! 

26@ 

280 

290 

310 



W< ! 

290 

850 





X< ! 

2:30 

630 





Z ! 

280 







Questo ha comportato T adozione 
di due matrici bidimensionali che trat- 
tano una le misure inglesi» l'altra quelle 
metriche. 

Cosi un solo parametro delle matri- 
ci individuerà a che gruppo appartiene 
Punita: se 1 sarà di capacità» 2 di peso, 
3 lineare. Il secondo parametro sarà 
semplicemente usato per Y ordine di 
successione. 

Lo stesso ragionamento è stato usa- 
to nelle due matrici numeriche X e W 
nelle quali è inserito il valore di con- 
versione. La parte di programma che fa 
tutto ciò è compresa fra le istruzioni 
che vanno dalla riga 200 alla 310. Nei 
due LOOP delle righe sopraddette av- 
viene questo: il primo POR di ogni 
LOOP determina il parametro discrimi- 
nante» il secondo quello d’ordine. Al- 
l’interno di questi due sta un READ 
che legge dalle righe di DATA poste in 
coda al programma e immagazzina il 
valore in una variabile: questa variabile 
viene poi uguagliata alla matrice bidi- 
mensionale. Semplice no? 

Tutto dò permette dì semplificare 
notevolmente la mole di calcoli e la 
trattazione dei vari menù: infatti basta 
richiamare con due semplici parametri 
l’unità e il suo rapporto di conversio- 
ne. D primo menù che apparirà dopo 
aver dato il RUN si occupa di discerne- 
re il campo sul quale sì svolgerà il pro- 
gramma, usando per questo La variabile 
S* primo parametro delle matrici. Se si 


volesse aumentare la capacità di con 
versione, sarà necessario dimensionare 
opportunamente le quattro matrici» e 


quindi, sì dovranno, aggiornare altret- 
tanto opportunamente i valori presenti 
nei DATA. * 


1 00 

REM 

110 

REM 

120 

REM 

130 

REM 

140 

REM 

150 

REM 

160 

REM 

161 

REM 

162 

REM 

163 

REM 

164 

REM 

165 

REM 

166 

REM 

167 

REM 


*** conversioni ********** 

*** GATTI FRANCESCO ****** 
************************** 
*** SETTEMBRE 84 ********* 
***:*****:******:************ 
*** V T f' C; T #*£ 

*** COMMODORE 64 il *** 
*** COMMODORE 4000 SI *** 
*** COMMODORE 8806 SI *** 
*** COMMODORE 16 SI *** 
*:*:+ ********************** 
************************** 


168 REM **********r*************** 

17G REM *** INI.': IRLI ESAZIONE ***** 

ISO REM *** MATRICI ***** 

190 REM ******** * **** * ? *********** 

200 FQR T s i T0 3 

210 F0R 0-1 TO 5 

220 READ f\$- IH*<T,G>=A$ 

239 READ C$' IT$<T , G >=C£ 

240 NEXTG 
250 MEXTT 

260 POR V=1 T0 j 
270 F0R K=1 TO 5 
280 READ Z : XCvL K)=Z 
290 READ Q'U<V,K)=A 
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303 NEXTK 
310 NEXTV 

320 rem 

333 REM mm INIZIO PROGRflMMft ¥■*** 

340 rem mMvmmmMtmmmmm#* 

350 POKE 53230.- 2 : POKE 53281,2 
363 TE$C0>= "CONVERS IONI " 

370 TEi < 1 > = " CRPflC I TR ' " TE*<2)="PESG 

II 

330 TEi < 3 > s " L I NERRE " 

390 PR1NT" [OLEARI [BIANCO] “ : PRINT Th 
B<12>TE*<0> 

430 PRINT TAE< 13>" [2 DOt#IHRVS3[GIA 
LLG3 1 [RV0FF3 [BIANCO] CRPflC ITA 

/■ fi 

410 PRINT THE (13>"[ DOWN 3 [RVS KG I ALL 
03 2 [RVOFF 3 [BIANCO] PESO" 

420 PRINT TflB <13 > " [DOWN ì Z RVS 3 1 0 1 ALL 
03 3 [RV0FF3C BIANCO 3 LINEARE" 
430 PRINT TÀB< 13) " [BQWNKRVS3 CGIALL 
03 4 C RVOFF 3 CB I ANCO 3 QIJ IT” 

440 PRINT TRE'.: 1 3 >"[ BONN 3 QUALE 3CEGL 
I"; : INPUT S 

450 IF S<1 OR S>4 THEN 390 
460 IF S=4 THEN 860 
47@ PRINT"! CLEAP 3 IBI ANCO 3 " - PR I NT IR 
B<12>TE$<0> 

430 PRINT TAB<3>"C2 BONN 3 C RVS 3 [GIRL 
LO 3 1 [RVOFF] [BIANCO 3 INGL-BEC” 
430 PR I NT TRE <8 > " I BONN 3 C RVS 3 1 0 1 ALLO 
3 2 [RVOFF 3 [B I ANCO 3 DEC-INGL" 
50O PRINT TRB<3>" CD0WN3 IRVS3 [GIALLO 
] 3 t RVOFF 3 [ B I ANCO 3 MENU PRINCI 
PALE" * • ■ 

510 PRINT TAB<8>“ [BOWN30URLE SCEGLI 
INPUT R 

520 IF RC1 OR R>3 THEN 470 
530 ON RGOTO 570,730,390 

540 rem 

550 REM #**+m INGL-BEC ♦♦#♦**♦** 

560 rem ***************** ******** 

570 PRINT" [OLEARI” PRINT TAB<7 >TEf < 
0 >“ "TEff.S^ 

530 FOR R=1 Tu 5 -PRINT TRB<3) " [EOWN 
3 E RVS 3 1 G I ALLO 3 " A " [RVOFF KB I ANC '* 
3 [RIGHT3 " IN$<S, A)"-" ITTCS ■ fi ■ 

530 NEXTR 

600 PRINT TAB < 3 > " L BONN 3 C RVS KOI ALLO 
3 6 [RVOFF 3 [BIANCO 3 MENU PRINCI 
PALE" 

610 PRINT TAB<3>" [BONN 3 QUALE SCEGLI 
*; ■ INPUT R 

620 IF PCI OR R>5 THEN 330 
630 PR I NT " [ BONN 3 [ GIALLO 3 UN ITA' BR C 
ON VER TIRE - " ; ; INPUT UN 
640 GOSUB 630 

650 PR I NT " [ DOWN 3 CONVERT I TO E "RI, 
PRINT ITÌ<S,R> 


660 PRINT TAB<6> " [3 BOWNKFVSKBIAN 
C03 PREMI UN TASTO PER CONTINUA 
RE [RVOFF 3" 

670 GET S$ : IF S*=" H THEN 670 

680 GOTO 570 

690 RI=X<S,P'*IJN: RETURN 

700 REM *##**#***#****!ts******!t!***^ 

710 rem ****** bec-ingl ********** 

720 REM ************************** 
730 PRINT" [CLEAR3" FRI NT T ABC 7 > TE*'.. 
0>": "TE$<S> 

740 FOR A«1 TO SPRINT TRB<0>" [BONN 
3 I RVS 3 C G I ALLO] "A" [RVOFF 3 E B I ANCO 
3 [RIGHI 3 " IT* <S» A> IN*<S,fì> 

750 NEXTA 

760 PRINT TAB < 8 > “ [B0WN3 [RVS 3 [Gl ALLO 
3 6 [RVOFF] [BIANCO] MENU PRINCI 
PRLE" 

770 PRINT TRB<8> “ [BOWNJQUHLE SCEGLI 
: INPUT R 

780 IF R<1 OR R>5 THEN 398 
790 PR I NT " [ BONN K G I ALLO 3 UN ITA' DA C 
ONVERTIRE : : INPUT UN 
S@0 GOSUB 850 

810 PRINT" [DOWN3CONVERT ITO E' : "RI; : 
PRINT IN*<S,R> 

820 PRINT TRB<6>"[3 D0WN3tRVS][BIAN 
COI PREMI UH TASTO PER CONTINUA 
RE [RVOFF]" 

330 GET SS ■ IF 31= " " THEN 330 
340 GOTO 730 
850 R I =W < S , R ,■ «UN ■ RETURN 
860 PRINT" [CLEAR3" -END 
870 REM ************************* 
880 REM ************************* 
890 REM ************************* 
300 BATR QUARTERS, LITRI , BUSHE3.S . LIT 
RI 

910 DATA GALLONI .-LITRI ,PINTE, LITRI 
920 DATA O'O.QTLI IHGL. , CHILI ■ TONA. 
CORTA 

930 DATA CHILI, TONN. LUNGA, CHILI -LIB 
BRE 

940 DRTR CHILI, ONCE, GRRMMI ,VRRDE,rC 
TRI 

958 DRTR P I ED I, METRI, POLLI CI, CENT ITt 
ETRI 

960 DRTR MIGLI R TER. , CHILOMETRI 
970 DRTR MI GL IR MRR. ..CHILOMETRI 
980 DRTR 291 .2# .@0343, 36.36, . 0275 
990 DRTR 4. 54, .220* .560, 1.76 

1009 DRTR I , 1 ,50.80, .019,907. 185, .00 
11 

1010 DRTR 1016.047, ,80898, .453,2.207 
1020 DRTR 23, 35, • 035, . 914, I , 034 , , 394 
1 038 DRTR 3 * 289 , 2. 539 ,.393,1, 609 , , 62 

1 

1048 DRTR 1.853,. 539 
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CORNU 


a cura di Gloriano Ro&si 


Quando una idea non è completamente 
tua, è bene dirlo per primi! E 1 proprio il 
caso di questa nuova rubrica che vede il 
suo nascere in questo numero di 
Commodore. 

L'idea di realizzar© una serie di que- 
sto genere è nata sfogliando le riviste 
americane, te quali periodicamente d©^- 
dicano qualche pagina a varie spigola- 
ture su piccoli problemi, gadget, ©tc. 

Il nome Cornucopia mi è venuto in 
mente pensando che i contenuti di que- 
sta rubrica possano essere dei veri e 
propri doni. Infatti la Cornucopia era 
quello strano corno dal quale te dea For- 
tuna traeva doni che alla cieca proferiva 
agli uomini. 

Ecco qui. allora, l'edizione italiana 
che vuole esibire il «merge» delle varie 
idee: valide, americane più idee nostre, 
ancora più valide. 

Quale è e quale sarà sempre II conte- 
nuto di Cornucopia? 

Tutti gli argomenti che non giustifica- 
no un articolo vero e proprio, tutte quelle 
spigolature che per propria natura pos- 
sono occupare una piccola parte della 
rivista, trovano posto in questa rubrica. 
Come vedrete, tutti i «doni* sono e sa- 
ranno numerati con il sistema ©sa deci- 
male e quindi incorni nceremo con il $01 r 
poi il $02, e così via fino ad arrivare ... a 
SFFFR 

Chi scrive i vari $nn? lo, tu. lei profes- 
sore, dottore, ingegnere, beh... chi ha 
una idea scriva. Ogni argomento è vali- 
do. Non pensate che dire A+B=C sia 
banale, A qualche lettore potrà 
interessare. 

Ogni $nn sarà sempre firmato (è chia- 
ro che i primi li ho fatti io i 2 KH Gloriano 
Rossi), a meno che l'autore non desideri 
il contrario. E.,, i migliori $nn saranno 
ricompensati adeguatamente. 

Inviate i vostri $nn a: 

Spett. Rivista COMMODORE 
rubnca Cornucopia 
Gloriano Rossi 

Viale Famagosta, 75 
2G142 Milano 


$01 

Tempo di attesa, fi sistema più preciso per far passa- 
re il tempo nei vostro computer è quello di utilizzare la 
variabile di sistema Tl$. Spesso si utilizza questo 
sistema: 

FOR (=1X01000: NEXT 

Questo loop crea un ritardo dì circa un secondo. 
Invece: 

100T=TI: PAUSA =60 

IIOIFTIc T+PAUSATHEN 110 
ci procura esattamente una pausa di 1 secondo. 

Ciò è dovuto al fatto che si sfrutta il CLOCK dei 
computer che non può certo fallire. 

Con PAUSA=30 si ottiene una attesa di mezzo 
secondo. 

Con PAUSA =90 sì ottiene una attesa di un secondo e 
mezzo. 

Con PAUSACI 20 si ottiene una attesa di due 
secondi, e così via. 


$02 

Repeat sui tasti. Sia per il Vie 20 che per il Commodo- 
re 64 h per ottenere fa variabilità di repeat sui tasti, si 
deve eseguire: 

POKE 650,128 

e tutti i tasti della tastiera sono abilitati al repeat 
automatico 

POKE 650,127 

e nessun tasto della tastiera è abilitato al repeat 
automatico. 

POKE 650 P 0 

con questo cornandosi riporta l'operabilità delia tastiera 
alfe normali condizioni, proprio come quando si accen- 
de il computer. 

Ovvero il repeat automatico è presente solo per i tasti: 
Spazio, Cursore a destra e sinistra, Cursore in sù ed in 
giù, InserteDelete. 


$03 

System reset. Per poter simulare da programma o 
tramite la tastiera il System rest, ovvero quella azione 
che equivale allo spegnimento ed alla riaccensione del 
computer, dovete eseguire: 


Per il Vìe 20 
SYS (64602) 

Per il Commodore 64 
SYS (64738) 

Per i Commodore delia serie 4000, 8000 e 8096 
SYS (64790), 


$04 

Cancella numero di riga. Provate ad eseguire le 
istruzioni seguenti: 

0 REM [DELJ [RVS]TTTTTT [RVOFF] QUE- 
STA E 1 UNA INTESTAZIONE 
ed ora eseguité il comando di LIST. Visto che belloH?? 


$05 

1 tasti funzione. Come si possono utilizzare i tasti 
funzione direttamente in BASIC? 

Sembra che l'unico sistema sia quello del CHR$. 
Sappiamo infatti che i tasti funzione hanno un diretto 
riferimento numerico nella tabella ASCII. 

Premendo il tasti FI si ha il codice 133. 

premendo il tasto F3 si ha il codice 134. 

Premendo il tasto F5 si ha il codice 135, 

Premendo il tasto F7 si ha il codice 136. 

E se ì medesimi tasti funzione sono premuti contem- 
poraneamente al tasto SHIFT; 

Premendo il tasto F2 si ria il codice 137. 

Premendo il tasto F4 si ha il codice 138, 

Premendo il tasto F6 si ha il codice 139. 

Premendo il tasto F8 si ha il codice 140. 

Verifichiamo quanto detto con questo semplice pro- 
grammino, che vuole essere un suggerimento e non 
l'unica soluzione, 

Dopo di che è possibile eseguire a seconda delle 
necessità: 

300 ON XI GOTO ............ 

oppure 

310 ON XI GOSU8 . 

Dove i puntini devono essere sostituiti da relativi nu- 
meri dì riga. 
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Syntax errar nel LIST. E’ possìbile forzare una condi- 
zione di errore, per nulla dannosa ai fini dell’esecuzione 
del programma, ma tale che in seguito all'istruzione 
LIST venga interrotto il listato con questo semplice e 
nevrotico messaggio: 

? SYNTAX ERROR 

Come fare? Sulla riga precedente a quella dalla quale 
deve essere interrotto il listato si deve aggiungere sem- 
plicemente la seguente istruzione: 

: REM [SHIFTL] 

Si, proprio il tasto shift più il tasto L provocano questa 
divertente interruzione del listato. 


$07 

Le insidie del Basic. Occorre fare buona attenzione 
alle variabili da utilizzare ed alle istruzioni BASIC, infatti 
una variabile tipo F può creare degli errori con ristruzio- 
ne BASIC OR, 

Cosa fare allora? I casi sono due: o cambiare il nome 
della variabile, oppure separare, la dove può esìstere un 
errore a torto, fe istruzioni BASIC dalle relative variabili 
insidiose. 

Così: 

I FA— FORA=NTH E N35 
è meglio ohe venga scritto: 

IF A=F OR A=N THEN 35 
Infatti nel primo caso l’interprete BASIC si sarebbe 
confuso ed avrebbe inteso: 

IFA=FOR A=NTHEN 35 
E ancora: 

FORI=STOP: NEXT 
è meglio che venga scritto: 

FOR l~STQ P: NEXT 

E’ implicito nei primo caso la variabile S e fa variabile 
P risultano incongruenti con l'istruzione TO. Risultato 
errerò: uno STOP non interpretabile. 


$08 

Maiuscoto/Mifiuscoki. Premendo contemporanea- 
mente il tasto di SHIFT ed il tasto con il simbolo della 
Commodore (in basso a sinistra) sì ottiene il passaggio 


da minuscolo in maiuscolo e viceversa 
A volte però può essere dannoso al fine estetico 
dell'esecuzione del programma. 

Si rende quindi necessaria la possibilità di abilitazio- 
ne e dìsabìf Stazione di questa funzione diretta da 
tastiera. 

Per disabilitare si esegue: 

PRINT CHR$(8) oppure 
PRINT "[CTRL H] 
per riabilitare si esegue: 

PRINT CHR$(9) oppure 
PRINT ’ICTRLI] 
tf medesimo effetto si ottiene con: 

POKE 657,128 per disabilitare e 
POKE 657,0 per riabilitare 


$09 

Disabi] frazione del LIST. Eseguendo il comando: 
POKE 775,200 

sì ottiene la disabilitazione del comando LIST, 

Dopo aver eseguito questa POKE ed impartendo 
ugualmente il comando BASIC diretto LIST si ottiene 
esclusivamente fa pulitura delta schermo e... nulla più. 

Per ritornare alla normale funzione, riabilitare cioè il 
LIST, sì deve semplicemente eseguire: 

POKE 775,167 
Per i possessori del Vie 20: 

POKE 775,0 disabilita 
POKE 775, 199 riabilita 


$0A 

Disabii frazione della tastiera. Sia per il Vie 20 che 

per if Commodore 64, è possibile rendere inattiva la 
tastiera. Questo fatto può essere utile al fine di evitare 
che in fase di elaborazione venga premuto qualche 
tasto a torto. 

Con il comando: 

POKE 649,0 

si ottiene la disabilitazione della tastiera, mentre con: 

POKE 649.10 
si ha la riabilitazione. 

Sarà quindi possibile attivare la tastiera solamente 
quando sia necessaria un input di un dato o deve essere 
premuto un tasto qualsiasi per proseguire 
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l'elaborazione. 

Attenzione: la disabi Illazione non influisce sui coman- 
di STOP e STOP/REST0RE, i quali dovranno essere 
disabilitati con altri opportuni comandi. 


SOB 

STOP no STOP. Nel $ OA abbiamo visto come sia 
possibile per il Vìe 20 e per il Commodore 64 rendere 
inattiva la tastiera. Eseguendo però: 

POKE 000,239 (per il Vie 20 POKE S08 r 1 14) 
si disabilita ri scio tasto di STOP, mentre l'Azione di 
STGP/RESTORE rimane inalterata. 

Con: 

POKE 808.225 (per il Vie 20 POKE 808, 1 00 oppure 
POKE 800.127) 

si disabilita sia lo STOP che la funzione STOP/ 
RESTO RE e non solo: anche la funzione del comando 
LIST. Infine per riportare tutto alla normalità si deve 
eseguire: 

POKE 808,237 {per il Vie 20 POKE 808.1 12). 


soc 

La riga fantasma. A volte, nei programmi, può essere 
piacevole vedere separate le varie routines o i vari 
blocchi di programma. Come si fa? I casi sono due: si 
utilizzano righe con REM, oppure si possono creare 
delle righe fantasma, cioè delle righe senza alcun con- 
tenuto che non influiscono in alcun modo sull 1 esecuzio- 
ne del programma se non quello di aumentare di un 
valore infinitesimale di tempo Tesecuzione stessa. 
Come si crea una riga fantasma? Cosi: 

100 [SHIFT SPAZIO] [SPAZIO] [SHIFT SPAZIO] 
e quindi 

RETURN 
Semplice no? 


$0D 

SHIFT -COMMODORE -CONTROL Potrebbe essere 
utile sapere, sempre da programma, se uno o più tasti di 
controllo siano o no premuti. Esiste per questo scopo 
una locazione ben precisa dì memoria (in pagina 3) che 


dice al sistema operativo se sì è premuto il tasto SHIFT, 
oppure il tasto COMMODORE, o il tasto di CONTROL 
oppure due o tre di questi contemporaneamente . 

Ebbene questa locazione, comune per il Vie 20 e per il 
Commodore 64, è accessibile anche in BASIC. Il valore 
normale, quando cioè nessuno dei tre tasti in questione 
è premuto, equivale a 0. 

Questo zero cambia quando è premuto: 
nessun tasto: 0 
SHIFT: 1 

COMMODORE: 2 

CONTROL: 4 

SHIFT-COMMODORE: 3 

SH IFT-CONTROL: 5 

COMMODORE-CONTROL: 6 

SH IFT-COMMODORÈ- CONTROL: 7 

Notate come i risultati siano binariamente espressi? 


nessun tasto 

00000000 =0 

SHIFT 

00000001 =1 

COMMODORE 

00000010 =2 

CONTROL 

00000100 — 4 

SHIFT-COMMODORE 

00000011 

2+1 —3 

SHiFT-CONTROL 

00000101 

= 4+1 =5 

COMMODORE-CONTROL 

00000110 

= 4+2 = 6 

S H 1 FT -CQM MODOR E-CONTR OL 

00000111 

= 4+2+1 =7 


Per poter verificare quanto appena detto provate a 
eseguire questo semplice programma di una sola riga 
BASIC. 


10 PRINT ‘1CLEARJ" PEEK(653): GOTO 10 
Dopo il RUN provate a tenere premuto uno o più di 
quei tasti tema di questa spigolatura. 


$0E 

Fissativo. Può risultare utile a volte rendere difficile 
razione di cancellare un programma su disco. Ciò per 
evitare errate manovre o inconvenienti dannosi. Per 
fare questo, è sufficiente far precedere il nome del file 
da uno spazio shiftato, 

Il risultato che si ottiene sì può osservare chiedendo la 
directory del disco: 

LOAD J, $”,8e poi LIST 

Vedremo che il programma che abbiamo chiamato 
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NOME apparirà in questa maniera: 

“"NOME PRG 

E r chiaro che se si volesse cancellare questo file- 
programma dichiarando '"'NOME, si avrà un messag- 
gio di errore (ILLEGAL QUANTITY ERROR). Se invece 
provassimo con: "NOME", si avrebbe un bel: FILE NOI 
FUND. 

Come si fa a cancellare o semplicemente richiamare 
un programma salvato con questo artificio? Semplice- 
mente facendo precedere tl nome del programma dallo 
spazio shiftato, cosi come lo abbiamo salvato, oppure si 
inserisce ai posto dello spazio shiftato un punto dì do- 
manda, Così ad esempio, se volessimo caricare in me- 
moria, si deve eseguire: 

LOAD “[SHIFT SPAZIO] NOME“,8 
oppure 

LOAD “?NOME“,8 


SOF 

Un difetto del DOS. Mentre si digita o sì edita un 
programma, è ottimo costume eseguire per sicurezza e 
periodicamente un SAVE. I manuali dei floppy drive tipo 
1 541 , 2031, 4040, 8050 età ci consigliano di eseguire il 
comando in questa maniera: 

SAVE l ‘<?Q:NOME M .8 

se il programma è già presente sul dischetto. Questa 
azione infatti dice al DOS (Disk Qperatìng System) che 
se \ì medesimo nome risulta già presente sul disco, 
questo va sostituito da quello che sta per arrivare dalla 
memoria centrale. 

■ Sfortu natamente a volte questo sistem a d f SA VE può 
creare dei danni sia al programma in salvataggio che ad 
altri file di dati o di programmi. Un difetto di tutti i DOS 
Commodore. 

La migliore soluzione per ovviare a questo inconve- 
niente è quella di cancellare il programma su disco e 
quindi eseguire il normale SAVE. Oppure rinominare il 
vecchio programma, poi salvare il nuovo e quindi can- 
cellare il vecchio rinominato. 

Vediamo in pratica come fare. 

OPEN 15,8,15, “SO:NOME“:CLOSE 15 

SAVE "0:NOME“,8 
oppure: 

OPEN 1 5.8, 1 5. " RO:NOMEQLD=NOME' CLOSE 
15 

SAVE "0:NOME“,8 

OPEN 15,8,15, “SO:NOMEOLD M : CLOSE 15 

Con il BASIC 4.0 si può semplificare: 


SCRATCH DO, "NOME" 

DSAVE DO, “NOME" 
oppure 

RENAME DO, ‘ NOME* 1 TO “NOMEOLD" 

DSAVE DO, “NOME" 

SCRATCH DO, “NOMEOLD" 

Ma un sistema più semplice per rendere veloce que- 
sta azione periodica può essere quella di inserire que- 
ste istruzioni direttamente nel programma, proprio alla 
fine; 

63500 X$=“NOME" 

63510 OPEN 15,8,15 

63520 PRINT# 1 5. "SO; l 'XSXLD" 

63530 PRINT^I S/'RO: 1 > X$“OLD=”X$ 

63540 CLOSE 15 
63550 SA VE “0: 5 *+X$,8 

Eseguire periodicamente, quando cioè ci viene in 
mente: 

RUN 63500 oppure 
GOTO 63500 


$10 

Dopo la REM, 1 trucchetti che sì possono attuare in un 
listato sono veramente molti! Eccone uno alquanto sim- 
patico. Digitando in un primo momento: 

1 00 REM “PROVA e quindi RETURN 
in un secondo momento si toma con il cursore proprio 
dopo i doppi apici e si esegue: 

[rvs][3 insertjp SHiFT M] 
e quindi ancora RETURN 
Fatto questo provate ad eseguire il LIST. 

$11 

Dopo I m M- Ecco un altro truccherò da inserire in un 
listato. 

Provate a digitare: 

100 REM “CODICE MASCHERATO 
e quindi RETURN 

Poi si toma con il cursore proprio sopra la lettera M di 
MASCHERATO e si trasforma detta M in negativo ese- 
guendo semplicemente: 

[rvs]M e quindi ancora RETURN 
Eseguendo il LIST rimmairà visibile solamente: 

100 REM “CODICE 

mentre la parola MASCHERATO, sia pure ancora esi- 
stente, non verrà visualizzata, cioè verrà 
“mascherata". 
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Si vince 

SU OGNI OSTACOLO 


OLTRE L'OSTACOLO! La padronanza nel su- 
perare condizioni difficili richiede assiduità 
di preparazione e impegno al massimo livel- 
lo. FUJI ha sviluppalo dei nuovi supporti ma- 
gnetici dopo potratte attività di ricerca e la 
messa a punto dì tecnologie innovative. Que- 
sti supporti permettono di superare senza ri- 
schi di errore anche le condizioni ambienta fi 
più avverse. Rigorosi test termoigrometrlcl 
portano ripetutamente i prodotti da 0*C a 
50° C, con umidità delTarìa dal 20% aJraO%, 
senza che si producano alterazioni nelle qua- 
lità elettriche, fisiche e chimiche. Le particel- 
le magnetiche sono disposte in modo unifor- 
me, secondo una struttura tridimensionale 
sviluppata da FUJI in modo esclusivo. Le pre- 
stazioni eccedono quelle dei “floppy" tradi- 
zionali utilizzati finora. ■ 


I FLOPPY DISK DELLA FUJI 
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LO SCOMPATTATORE 
PER TUTTI I TIPI 
DI COMMODORE 

di Giancarlo de Cobelli 


Si chiama scompattatore. E‘ una utility 
che svolge esattamente la funzione con- 
trarla rispetto a quella pubblicata sul nu- 
mero precedente di Commodore. 

Come vedremo meglio in seguito, cl 
permette di separare il programma met- 
tendo una istruzione per linea. Là dove è 
possibile, naturalmente. Questo fatto 
può risultare utilissimo per analizzare 
nei miglior modo un programma e per- 
metterci così di afferrarne il perfetto 
funzionamento. 

Qualche lettore potrà obiettare che 
esiste già in circolazione una versione di 
scompattatore, ma la versione che pub- 
blichiamo evita alcuni erron di svolgi- 
mento. Il listato è fra l'altro implementato 
con la routine di input controllato e di fine 
programma, e non solo: d permette an- 
che di scompattare la linea 0. 

Non capita spesso di trovare pro- 
grammi che inizino alla linea 0: la logica 
del programmatore porta sempre ad ini- 
ziare la numerazione di un nuovo pro- 
gramma dalla linea 10 o 100 Abbiamo 
ritenuto opportuno dare anche questa 
possi bilrtà perchè può sempre capitare 
di trovare un programma che inizi alla 
linea 0, Domo del resto a me è capitato 
spesso. 

Funzionamento 


A differenza del compattatore, lo 
scompattatore lavora linea per linea 
Dopo aver letto il puntatore delia prossi- 
ma linea ed il numero di riga corrente, va 
cioè ad analizzare subito la linea corren- 
te ponendo r caratteri letti in una variabi- 


le V(X). Ogni volta che nella lettura dei 
caratteri viene riconosciuto un token 
prestabilito (vedremo dopo nel dettagli 
quali sono questi tokens) il controllo vie- 
ne passato alla routine di 
scompattamento. 

Analizziamo ora linea per linea il 
listato: 

100-116. Commento informativo sul 
programma d nessuna utilità pratica. 
117, Pulizia delle variabili esistenti e di- 
mensionamento della matrice unidi- 
mensionale (V(X), 

1 18-136, Nella riga 123 sono contenu- 
te le POKE che permettono di modifica- 
re i cokxi di schermo (per ii Vie 20 biso- 
gna digitare 36879 e 36880, per tutti gli 
altri Commodore le due POKE si devono 
eliminare) ed il codice ASCI1 14 che tra- 
sforma i caratteri shiftati in caratteri 
maiuscoli. La riga 124 contiene tra vir- 
golette le diciture «scompattatore» in ca- 
ratteri shiftati. Dalla riga 125 alla riga 
131 ci sono te istruzioni di utilizzo del 
programma. Le linee 132-136 servono 
per assumere i vari input richiesti dai 
programma e per controllare che que 
sfattimi siano corretti. 

137-144. Apertura del canale di control- 
lo errori e del canale di scrittura. Salto 
alia routine che controlla se ci sono orro- 
ri nel disco e trasformazione del nome 
del programma sorgente con l'aggiunta 
del suffisso 75'. La riga 142 cancella il 
programma, se esiste, che possiede il 
medesimo nome di quello che deve es- 
sere generato (questo fatto potrà capita- 
re quando si esegue per due volte l'ese- 
cuzione suite stesso programma sor- 
gente). In seguito apre il canate di scrit- 


tura e ricontrolla se ci som errori sui 
disco. 

145-171. Nella linea 151 vengono letti i 
primi due caratteri che contengono il 
puntatore alla prossima linea e che ven- 
gono riscritti sul disco destinazione. La 
variabile F viene posta uguale ad 1 poi- 
ché serve per controllare se la linea è già 
stata presa in considerazione per con- 
trollarla (F*1). 

La variabile LN (numero riga del pro- 
gramma destinazione) viene posta 
uguale alla variabile NL (numero riga 
programma sorgente); controllo della 
variabile LK che indica, in questo caso, 
quando il programma è stato scompat- 
tato e stampa del "numero di linea che si 
sta esam inando. Le lìnee 156-159 scri- 
vono su l disco destinazione due caratte- 
ri dì controllo ed il numero di riga. Dopo 
d« che c'è la routine di lettura dei caratteri 
con memorizzazione nell array V(X) ed 
incremento dello stesso (160-163). Let- 
tura del numero dì riga e controllo se ta 
riga va esaminata, tramite la variabile 
LK. Leggo altri due caratteri e trasformo i 
due caratteri che contengono l'indirizzo 
alto e basso de! numero di lìnea In nu- 
mero La line* 171 controlla il valore di 
F per poter passare a! controllo dei to- 
kens (F=1) o ritornare per poter stam- 
pare Il numero di linea in questione 
(F— 0). 

172-192. Controllo dei caratteri conte- 
nuti nella matrice V(X) partendo da 
X-l Se la lettura corrisponde ad un 
due punti (codice ASCII 58) saito alla 
routine che controlla se i caratteri che 
vengono dopo corrispondono ad i to- 
kens BASIC altrimenti scrittura del ca- 
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rattere letto sul disco destinazione; in- 
cremento della variabile IN e controllo 
se maggiore di NL ed in tal caso scrittura 
del carattere che era stato letto. 

La linea 182 serve per chiudere una 
linea dopo che è state scritta sul disco 
destinazione. Trasformazione del nu- 
mero di linea in codice ASCII per la scrit- 
tura sul disco destinazione ed I neramen- 
te della matrice V(X). Se il carattere in 
questione corrisponde ad uno spazio 
(32} od un due punti Incremento della 
variabile X e ritorno alla lettura detla ma- 
trice V{XK 

La linea 189 controlla se il carattere 
letto è escluso dai codici ASCII indicati 
Che contengono tutti i tokens delie istru- 
zioni BASIC, ed in tal caso salto alla 
routine di scompattamento dove si con- 
trolla che V(X) sìa o non sia il codice 
ASCI 134 (virgolette). 

La linea 190 so trova V(X) uguale al 
token END (128) o maggiore del codice 
ASCI1 1 53 (dopo questo si trovano tutte 
le parole chiave del BASIC non utilizza- 
bili nel programma ad accezione delle 
tabulazioni o di THEN, STEP, TO che 
comunque non hanno nessuna impor- 
tanza poiché le prime non influiscono sul 
concetto con il quale funziona lo scon> 
patiatore e le seconde sono sempre pre- 
cedute da un POR od un 1F) salto alla 
routine di scrittura del carattere sul disco 
destinazione. 

Le linee 191 e 192 controllano se 
V(X) corrisponde ad i codici ASCII che 
comprendono i tokens di salto condizio- 
nato o incondizionato ed alcuni altri co- 
me IF, RESTORE r RETURN, REM e in 
tal caso viene eseguito il medesimo sal- 
to descritto per la linea 189* 

193-208, Le linee 198-199 formano 
una routine di scrittura sul disco destina- 
zione condizionata solo dal tatto che se 
V(X) è uguale a 0, allora toma alla routi- 
ne di lettura e scrittura dell'indirizzo di 
partenza; gli altri comandi di scrittura 
che troviamo in queste righe sono utiliz- 
zati esclusivamente dalle routine di con- 
trollo dei tokens. La riga 201 controlla 
se il carattere tetto non corrisponde alle 
virgolette (34) e In caso scrive il caratte- 
re: controlla se V(X) è maggiore di 0 e se 
è vero incrementa la variabile X e ritorna 


al controllo dei tokens, altrimenti non In- 
crementa X e va alla routine di lettura e 
scrittura dell'indirizzo di partenza (linee 
206-208), 

Se il carattere corrisponde a virgolette 
allora scrive il carattere, incrementa la 
variabile X e toma a scrivere un altro 
carattere a meno che I 1 ultimo carattere 
non corrisponda a virgolette od a 0 per- 
ché in tal caso si andrebbe alla routine 


prima descritta (linee 206-208), 
209-223* Chiusura del programma 
scritto sul disco destinazione tramite la 
scrittura di due 0 e eh i usura dei canali di 
lettura, scrittura, controllo errori. Questo 
avviene quando durante la lettura del 
puntatori alla prossima riga si incontra- 
no due zeri che segnalano che il prò* 
gramma che si sta esaminando è finito, 
Avviso dì fine scompattamento ed attesa 
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dèli’ input per fine lavoro o nuovo scom- 
lattamento, in caso di fine lavoro viene 
data la sys di azzeramento della memo- 
ria BASIC che per il Commodore 64 cor- 
risponde a 64738 (per i I Vie 20 è 64802 e 
per II Commodore della serie 4000 e 
8000 è 64790). 

224-240. Queste linee corrispondono 
alle subroutines di lettura di due caratteri 
dal disco e del controllo di errore del 
disco. La lettura dei caratteri dal disco 
avviene nelle linee 229-235 dove i ca- 


ratteri letti vengono posti nelle variabili T 
e TI mentre la routine di controllo dì 
errore su disco avviene dalla linea 236 
alla linea 240 con il solito metodo de- 
scritto anche dai manuale d'uso dei 
1541. 

Breve conclusione 


Con la speranza che queste due utility 
da me modificate e commentate possa- 


no essere utili per il vostro scopo, vi ri- 
cordo che per un migliore utilizzo sìa del 
compattatore, pubblicato sullo scorso 
numero, che dello scompattatore, è no- 
tevolmente meglio l'esecuzione in forma 
compilata, naturalmente con l'austro- 
speed con il Pe*?need 



SCOMPflTTHTORE 


100 

REM 


101 

REM 

* 



102 

REM 

* 

SCOMPHTT fiT ORE 

£ 

103 

REM 

-* 


£ 

104 

REM 

* 

MODIFICA DI 

* 

105 

REM 

* 


* 

106 

REM 

# 

GIANCARLO 

* 

ly7 

REM 

* 


* 

108 

REM 


DE COBELL I 

$ 

109 

REM 

# 


$ 

110 

REM 

* 

V. LE DEI FIORI 65 

* 

111 

REM 

* 


* 

112 

REM 

* 

CUSANO MI LANINO MI 

# 

1 13 

REM 

* 


* 

116 

REM 


117 

CLR 

; DIM V (256 > 


118 

REM 


119 

REM 

* 


* 

12@ 

REM 

* 

ISTRUZIONI 

$ 

121 

REM 

* 


* 

122 

REM 



123 POKE 53230, 8 ■ POKE 53281,0 FRI 
NTCHRt<14> 

124 FRINÌ" CVERDE] CCLERR] ” TRB<12> 

11 CRVS3 #™r\T*i i *i r,r 12 bowh] 

125 PRINT"*UE5TA UTILITY S COMPRI T 
fi UN PROGRAMMA PO 

126 PRIHT"ST0 NEL DRIVE PRESCELTO 

DIVIDENDO TUTTE 

127 FRI NT "LE LINEE POSSIBILI LRS 
CI ANDÒ COSI'' SOLO 

128 PRINT"UNR ISTRUZIONE PER LINE 
fi. C2 DOWN] 

129 PRINT'SL PROGRRMMfi SCOMPflTTfiT 
TO AVRA'LO STESSO 

130 FRI NT" NOME, Mfi SEGUITO DAL SU 
FF I SSO '/$' E Sfi- 

131 PRIMI "Rfi' SflLVRTO SUL DRIVE P 
RESCELTO. [ DOWN ]" 

132 INPUT "CRVS3 “RIVE SORGENTE 

#";D0f 

133 IF D0$<CHR«(48) OR D0*>CHRt<4 
9> THEN 132 

134 INPUT ” IRVS1 “RIVE DESTI NRZ IO 
NE#" ; DI'$ 

135 IF BB*<CHRÌ<48> OR DBT>CHRf ( 4 
Sì THEN 134 

136 INPUT "[RVSI ,-OME PROGRRMMR 

" ; HP* 

137 OPEN 15,8.. 15 

138 OPEN 5,8,5, D0#+ " : " +NP$+ " , P .■ R " 

139 GOSUE 236 

140 FRINT" I OLEARI OK, STO LAVORANO 

0 SULLE LINEE [ DONNI" 

1 4 1 ND$=LEFT$ < NPf , 1 4 > +" /S " 

1 42 PR I NT# 1 5 , " S " +D0Ì+ " ■ " +HDT 

143 OPEN 6,8,6,00$+" ; "+N0$+" , P, W" 

144 GÒSUB 236 

145 rem m*-#**mmm**Mwmmm* 

146 REM * * 
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147’ REM * LETTURA E SCRITTURA * 
148 REM * INDIRIZZO DI PARTENZA * 

151 GOSUE 229 

1 52 PR I N T#6 , C HR$ < T 1 > ; C$ ; 

153 F=ì 

154 GOTO 1 54 

155 LN=NL 

156 IF LK=8 THEN 214 

157 FRIHTLH.. 

153 PRIMI #6.. CHRf ( 1 ) ; CHRf < 1 > : 

1 59 PR I NT#6 , CHRf < LL > : CHRf < LH > 

160 X=1 

T61 GOSUE 231 

162 VOO=T 

163 IF T>3 THEN X=X+ 1 : GOTO 161 

164 GOSUE 229 

165 LK-T+T1 

166 GOSUE 229 

167 NL=T1+C256*T> 

16S IF LK-0 THEN 171 
169 LL=T1 

• H=:T 

171 IF F THEN F=0 : GOTO 155 

172 rem ************************* 

173 rem $ ' * 

174 REM * RICONOSCIMENTO T0KEN3 * 

175 REM * * 

176 REM ************************* 

177 N-l 

173 IF V 00053 THEN 133 
179 IF X=1 THEN 266 
ISO LN=LN+ 1 

131 IF LH9=NL THEN 206 

182 PRI MT#6 , CHRf C 8 > ; CHRf < 1 > CHR f < 

133 H= I NT ( LN/256 > 

134 L=LN-<256*H> 

1 35 PR I NT #6 , CHRf < t > i CHRf < H > ; 

| C[[T £ 

137 IF VOI 1=32 OR VOI >-58 THEN 13 

183 GOTO 173 

139 IF V EOO 2 8 OR V 0O>155 THEN 
281 

190 IF V 00=1 28 OR V 009153 THEN 
193 

191 IF V CO <137 OR V 009 144 THEN 
201 

192 IF V 00 =1 48 OR VOO-141 THEN 
201 

193 rem ************************* 

194 REM * * 


REM * SCOt'IPATT AMENTO * 

PRI NT #6 ..CHRf 0/00 , 

I F V < X > 9 0 THEN X=X+ 1 : GOTO 1 38 
GOTO 155 

IF VCNK934 THEN 206 
PR I NTttG .CHRf OV OO > ; 

X=X+ 1 

IF V 00=34 OR V<X>=8 THEN 286 
GOTO 202 

PRINT#6, CHRf 0/00 0 
I F V < X > > 8 THEN X=X+ 1 : GOTO 1 73 
GOTO Ì55 

REM ************************* 
REM * 4: 

REM * FINE SCOMPATTAMENTO * 
REM * * 

REM ************************* 
P R INT#6, CHRf < 9 > ; CHRf < 3 > 

CLOSE 5 : CLQSE 6-CLOSE 15 
PR I NT " C CLEAR 3 " : PR I NT TRE: < 1 8 j ■ 
PR I NT " C 4 DOWN ] *COMP ATTfiMENTO 
FINITO" 

POR K=1 IO EOO : NEXTK 

PR I NT " C CLERR I -, L PROGRAMMA SCO 

M RAT TATO E " STATO SALVATO" 

PRI NT "SUL DISCO NEL DRIVE PRE 
SCELTO. " 

INPUT " [5 DOWN] PUOI SCOMPATTA 
RE UH ALTRO PROGRAMMA < E RVS 3 3/ 
HLRVOFFI > " SHf 
PRIMI" CCLERR] " 

IF SNf="3" THEN 132 
SYS64738 

REM ************************* 
REM * * 

REM * SUBROUTINES * 

REM * * 

REM ************************* 
GOSUE 231 
Il =T 

GEI #5 Cf 
5 Q SUE 236 

IF Cf="" THEN T=0 - RETURN 
T=RSCCCf > 

RETURN 

INPUT# 15 / EN,EM1,ET.. E3 
IF EN=0 THEN RETURN ' 

PR I NT " CCLERR] I RVS I “PRO RE NEL 
DISCO" 

PRI NT 

PRINTER; EM# ET 1 E 3 


195 

193 

199 

£00 

201 

202 

£03 

£84 

205 

206 

287 

20S 

209 

218 

211 

2 1 2 

£13 

214 

£15 

216 

£17 

£18 

£18 

228 

221 

223 

£24 

226 

227 

228 

223 

£38 

231 

232 

233 

234 

235 

2 3 t> 

237 

23o 

233 

248 
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IL TRIANGOLO DI 
TARTAGLIA 


di Mauro Massetti 



Quando si affronta l'elevazione a 
potenza dì un binomio del tipo 
(x f y) elevato a n;o (x-y) elevato a 
n t non si hanno problemi (almeno 
spero) sino ad esponenti minori o 
uguali a 4. Questo perchè nelle 


scuole, normalmente, questi svilup- 
pi sono trattati solo sino a livelli in- 
feriori, che, peraltro, sono i più usa* 
ti. 

Può però capitare dì imbattersi in 
un elevamento a potenza di ordine 


superiore, ed ecco che... comincia- 
no ì dolori; questo accade soprat- 
tutto quando il binomio è del tipo (x- 
y) elevato a n r In questo caso, in- 
fatti, il segno dei vari coefficienti va- 
ria alternativamente e basta in ver- 
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tire (malauguratamente) l’ordine dei 
fattori per ottenere risultati del tut- 
to errati, À tal proposito ci viene in- 
contro il triangolo dei fattori detto 
"triangolo di Tartaglia” dal mate- 
matico omonimo che ne scoprì le 
proprietà delle regole che lo gover- 
nano. 

Queste regole» invero, sono poche 
e non presentano difficoltà alcuna 
nel loro apprendimento, ma per es- 
sere spiegale con semplicità, ne- 
cessitano dì un esempio: conside- 
riamo il binomio (x + y) elevato a n; 
per n - 0 si avrà come risultato per 
qualsiasi valore di x e y 


1 

per n =» 1 1 x 1 y 
per n = 2 1 x/2 2xy 1 x/2 
per n = 3 lx/3 3x/2y/1 3x1 y/2 Ty/3 


ecc, per cui si nota subite la dispo- 
sizione a triangolo dei fattori. Si 
possono notare due cose in portan- 
ti che subito saltano all'occhio: 

* se per ogni fattore si considera la 
coppia-prodotto delle variabili (xy) t 
si nota che l’esponente decresce 
dal valore massimo allo zero por la 
prima e cresce da zero al valore 
massimo per la seconda; 

* la somma degli esponenti delle 
variabili è costante ed è pari all’e- 


sponente del binomio; 

Veniamo ora alla cosa più impor- 
tante. Se pensiamo di riscrìvere tut- 
ti e solo i coefficienti nella forma 


0001000 

00011000 

000121000 

0001331000 

00014641000 


possiamo notare cne se si conside- 
rano tanti piccoli triangoli con i ver- 
tici del iato orizzontale superiore in 
corrispondenza di due valori dei 
coefficienti e il vertice inferiore nel- 
la posizione occupata dal coeffi- 
ciente da cercare, detto coefficien- 
te ha valore pari alla somma degli 
altri due Goefficìenti appartenenti al- 
lo stesso triangolo 
A questo punto analizziamo più in 
dettaglio il programma per meglio 
comprendere la struttura. Dopo un 
rinvio al blocco della v ideata inizia- 
le» dì imputazione e di scelta, si ac- 
cede al blocco principale del pro- 
gramma (riga 30). Come è facil- 
mente rimarcabile dagli schemi so- 
pra mostrati» in corrispondenza di 
esponenti pari ci sono un numero 
dispari dì fattori, mentre per espo- 
nenti dispari il numero dei fattori è 
pari. 

Si è operato quindi come segue: in 


caso di numero dispari dei fattori, 
ri centrale viene considerato a par- 
te e si pongono, invece, tutti gli al- 
tri (come un numero pari di fattori) 
su un vettore centrandone la posi- 
zione rispetto alla metà della lun- 
ghezza del vettore stesso. Questo 
perché per un qualsiasi vettore di 
lunghezza n è, nel nostro caso, 
x((n/2)-1 ) -s x{(n/2) + il) per qualsivo- 
glia valore di I < n/2. Si possono ot- 
tenere ora i valori degli esponenti 
sommando fra loro quelli degli 
esponenti della riga superiore se- 
condo le regole precedentemente 
esposte. La procedura sopra indi- 
cata non pone particolari problemi 
se il binomio considerato è del tipo 
(x + y) elevato a n, Se invece fosse 
del tipo (x-y) elevato a n, come già 
menzionato, il segno dei fattori 
cambia al ter nati va me me (comin- 
ciando però sempre da positivo). In 
questo caso bisogna quindi presta- 
re molta attenzione al coefficiente 
centrale (nel programma denomi- 
nato con la variabile OC) in quanto 
ri sufta essere positivo per esponen- 
ti del binomio esattamente divisìbi- 
li per 4 e negativo per esponenti di- 
visibili solo per 2. 

A causa dello spazio orizzontale li- 
mitato (40 colonne video) lo svilup- 
po a triangolo non viene visualizza- 
to per esponenti >9, mentre per 
quello in fattori non vi sono limita- 
zioni (basta saper pazientemente 
attendere e cambiare eventualmen- 
te, i dimensionamenti dei vettori C*~ 
e CR tenendo presente che deve 
essere DIM -{ES + 1). 


Lee rem 


105 REM * * 
110 REM * IL TRIANGOLO DI * 
115 REM * TARTAGLIA * 
120 REM * DI * 
125 REM * MAURO MASSETTI * 
130 REM * Ut 


135 rem 

140 Din CF<50 ) jGRC50) : GOSUB 575 
145 GOTO 500 : REM *TESTfi PRQGRfìMM 
R 

150 REM *#**:***$***$£$$*$#$. 


155 REM * CALCOLO DEI * 

160 REM $ COEFFICIENTI * 

165 REM * PER LO SVILUPPO * 

17S rem 

175 F0R 1=1 TÙ ES 
130 IF < < I/2J-INT < 1/2) >O0 THE N 2 
05 

185 CC=CR<25>*2 
196 F0R J=1 T0 <ES/2) 

195 CF < 26- J > =CR ( 26- J > +CR< 25- J ) : CF 
i 25+ J ) =CF (26- J > 

200 HEXT-J ^ GOTO 245 
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285 CI" ( 25 > =CC+CR < 2 3 > ' cF « 26 ) =UF <: £5 
' ! I- ES --1 THEN 245 
£10 FOR J =2 TO 'I ‘IEG+I >/2> 

£ i 5 C F < 26~ J ) = C R C £ ? - J > + C R < 26- J ) ' CF 
£ 5 f J > " CF 26 • ■ J > 

225 rem mm ************** * 

238 REM * COPIO MOTRICE * 

235 REM % CF SU CR * 

'240 REM ******************* 

245 FOR J-ì ì'u 50 ; CR< J>=CF£ J> = NEX 

| ' ■ -J ! : -| ì ; ;'i £ '■ i l 

£50 REM **************** **‘S :**** 
255 REM * SVILUPPO IN FATTORI * 

26 O REM ***** ************ * ***** 

£ 65 HE NT 1 K U - 0 PR I H T ■ P R [ NT 
£70 FOP. 1=1 TO 25 
£75 IF Cr '..15=0 THEN 230 
280 T F CF< I > = 1 THEN PR I NT 11 5 N' ; ES ■ 
KO=i ■ GOTO 2 30 
2 8 5 G 0 S U B 3 8 0 : G 0 S UB 405 
230 NE/T I : I F SQ$= " - " AND < < ES/4 > 

1 NT < ES/4 > > <>0 THEN CC- -CC 
£ 95 l F < •: ES/2 > - 1 N T < ES/2 > > O 8 THEN 
205 

300 PR I i T CC ; •’ X t M ; KO ; " V T" KO ■ K 0=K 0 
+1 : CF<25>=— CFC25) 

"j3 F Uh' I — £b T U 5@ 

310 IF CF < I >=0 THEN 1=50: GOTO 330 
3 1 5 GO SUB 380 : 1 F CF <I> = 1 THEN PR I 
NT " V t" ; E3 : GOTO 338 
320 IF CFa>=-l THEN PR I NT " -V T" j E 
3 : GOT 0 330 
325 GASI IR 405 
330 MÉNTI 

335 REM **************** 

348 REM * CONTINUI S/N"* 

345 REM **************** 

350 I NP UT ” VUO I CO NT I NUORE < S/N > '* ; 

Sf 

855 IF St=“S" THEN FRI NT " [OLEARI " 
i " [HOME] " : GOTO 145 
360 END 

365 REM *********************** 
370 REM * SU BROLI CAMBIO SEGNO * 
375 REM *********************** 
380 IF SG*=“- , ‘ AND CF<I-1>>9 THEN 
CF<I'-'=-CFa> 

385 RETURN 

390 REM ************************* 
395 REM * SUBROU STAMPA FATTORI * 
400 REM ************************* 


405 PR I NT CF < I > '* X f" ; ES-KO : " V T” ; KO 
: KO=KO+.l 
410 RETURN 

4 N5 REM ******************** 

420 REM * SUBROU TRIANGOLO * 

425 REM ******************** 

430 IF 1 = 1 THEN PRIMI' TfiBC21> ; " 1" 
435 IF I>9 THEN 495 
44G R£=" " ■ FOR J~21 TO 25 
445 IF CF ( J > =0 THEN 455 
450 R$=R$+R I GHT$ ( < " 11 +STRÌ ( CF C 

J> -4; 

455 NE/T J 

460 IF L<I/2>-INT<I/2>K>0 THEN 4 
70 

465 R$=R$+R I GHTt < < " +ST Rt < CC ) 

>,4) 

A ,’M FtjR J =£6 I U 30 

475 IF CF'CJ>=0 THEN 1=36 : GOTO 485 

486 R$=RT+RIGHTTt" "+STR$<CF : 

J> > > , 4 > 

485 NEXTJ 

498 P R I NT T fi B < 18-1 *2 > : R$ 

435 RETURN 

5 00 FOR 1 = 1 T 0 5 0 • f:F < I > = 0 ; CR < I > = @ 
: HEXII - CO I ■ SGT=" +■" 

505 REM ******************* 

510 REM * SVILUPPO DI * 

515 REM * BINOMIO ELEVATO * 

520 REM * fi POTENZA E * 

525 REM * TRIANGOLO DI * 

530 REM * TARTAGLI fi * 

535 REM ******************* 

540 PRINT "BINOMIO ; fi) < X+V > IN 41 
545 PRINT" B> <X-V>1N“ 

550 PRIMI: INPUT "FATE LA SCELTA (H 
/?> 

555 IF Si==“B" THEN SG$="“" 

560 INPUT "IMPOSTARE L -'ESPONENTE 
N 11 ì ES 

565 IF ES=0 THEN PRINT" SVILUPPO 
= 1 " : GOTO 350 
570 GOTO 175 

575 FOR R-= 1 TO 10: PRINT : NE/TR 
580 PR I NT TfiB C 1 5 > ; " IR I ANGOLO " : PR I 
NT T AB ( 1 9 > ; "DI " ; PR INT TfiB C 1 5 > 
; "TARTAGLIA" 

585 FOR R= 14 TO 24 : PRINT : NE/TR : PR 
INT TfiB < 1 0 > ; " B I : MAURO MAS SET 
TI" * 

590 FOR H=1 TO 5000 : HENTH : PRINT" C 
OLEARI " : " [HOME] " : RETURN 
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PROGRAMMAZIONE 

STRUTTURATA 


Programma SCONTO: (Ingresso: tastiera; uscita: video) 
calcolo dello sconto da applicare ad un importo dato 


dì Mariangela Guardione 



Questa serie di articoli , vuole 
trattare un argomento che rive- 
ste attualmente una grandissima 
importanza derivata da una dif- 
fusione sempre maggiore nella 
vita quotidiana degli home e 
personal computer 

Con il termine "programmazione" si in- 
tende una disciplina autonoma che trat- 
ta i metodi di formulazione e di costru- 
zione degli algoritmi. Un algoritmo è una 
legge che governa un'intera classe di 
processi di elaborazione e controllo de 
dati. Per questo motivo, deve essere 
creato a partire da unità logiche adegua- 
te c sicure. 

Perchè la programmazione abbia la 
struttura di un metodo rigoroso devono 
essere individuati i problemi e le tecni- 
che che le sono proprie, e che devono 
essere quindi valide per ogni tipo di 
applicazione. 

Infatti, fino al 1960, la programmazio- 
ne veniva eseguita usando un metodo 
chiamato “codificazione" che consiste- 
va in una traduzione minuziosa dei le 
istruzioni in numeri binari, ottali o esa de- 
cimali che fornivano quindi il programma 


pronto per essere eseguito dal 
calcolatore. 

In questo lavoro di codifica, il pro- 
grammatore doveva adattare i) pro- 
gramma alle caratteristiche del calcola- 
tore utilizzato. Doveva quindi conoscere 
profondamente e dettagliatamente la 
macchina utilizzata ed era impossibilita- 
to ad adattare i programmi a macchine 
diverse. Ogni centro di calcolo doveva 


mettere a punto i propri programmi e, 
nell'evenienza de ir acquisto di un nuovo 
calcolatore, doveva abbandonare tutti i 
programmi preparati precedentemente 
ricominciando quindi un nuovo lavoro di 
codificazione. 

Inconvenienti 

Tutto questo portava 11 programmato- 
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re a usare le conoscenze acquisite con 
l'esperienza per inventare “frucchi" 
sempre più sottili. Il tutto per creare dei 
programmi che però risultavano avere 
una struttura logica motto difficile, sia da 
verificare, che da utilizzare da parte di 
un altro programmatore, li problema 
principale: questa logica non corrispon- 
deva in alcun modo a quella umana. E’ 
dall'insieme di tutti questi inconvenienti 
che sorse Ja necessità di strutturare la 
programmazione per costruire in modo 
sistematico I programmi e per renderli di 
facile e immediata comprensione. Nac- 
quero quindi i linguaggi dà programma- 
zione ad atto livello, che rappresentano 
il formalismo con cui vengono espresse 
le istruzioni per una macchina ideale, 
costruita cioè a misura d’uomo. 

Da ciò risulta evidente Che un pro- 
gramma deve essere costituito da una 
sequenza di istruzioni che ìi calcolatore 
possa comprendere: e questo vuol dire 
che l’insieme delle istruzioni che forma- 
no il programma devono servire a speci- 
ficare esattamente le azioni Che devono 
essere eseguite. Questa esigenza ìnefi- 
minabiJe di chiarezza e dì esattezza co- 
stituisce la differenza principale fra la 
comunicazione con le macchine e quel- 
la tra gli uomini. Per poter lavorare con i 
calcolatori è necessario usare espres- 
sioni chiare e precise, in quanto l’ambi- 
guità, in questo specifico campo, non è 
ammessa, 

E’ per questo motivo che gli 'schemi 
dì flusso" costituiscono un mezzo facil- 
mente comprensibile e motto usato per 
rappresentare t programmi, in quanto 
forniscono, tramite una rappresentazio- 
ne grafica e quindi immediata. un’imma- 
gine motto chiara di come una serie di 
azioni possano succedersi l'una dopo 
I altra. 

Infatti in questi diagrammi sono rap- 
presentati due tipi di istruzioni: le asse- 
gnazioni (racchiuse nei rettangoli) e le 
decisoni (racchiuse nei rombi). 

Ad una decisione possono seguire 
una o più istruzioni che indicano la pos- 
sibilità di una scelta che può avvenire in 
un senso (+) o ne il’ altro (-} T mentre una 
ripetizione viene indicata da un loop, co- 
me schematizzato in figura 1 


Un programma quindi fornisce le re- 
gole di comportamento che regolano un 
numero in genere imprecisato di pro- 
cessi. Questi singola processi presenta- 
no lo stesso modello di comportamento, 
ma si differenziano per i valori assunti 
dalle diverse variabili in ogni istante. Da 
tutto ciò nasce la necessità di avere un 
metodo di prova analìtico per la verifica 
dei programmi, che si astragga dalle 
proprietà dei singoli, per ottenere delle 
regole valide in generale. 

Questo metodo è nolo come ' ‘verifica 
dei programmi". In aggiunta a questo, è 
necessario che 1 vari programmi siano 
corredati da una buona documentazio- 
ne che ne completi comprensione e 
utilizzo. 


Storia 

della programmazione 
strutturata 


La nascita, se cosi si può dire, della 
programmazione strutturata avvenne 
nel 1956 per epe radi un gruppo interna- 
zionale di esperti che adottarono, per 
creare il primo di questi linguaggi (AL- 
GOL), le idee originati di Rutìshauser. 
Quest'ultimo espose nel 1952 con chia- 
rezza ridea dì sviluppare un linguaggio 
che fornisse una rappresentazione 
semplice e naturale della programma- 
zione e che parallelamente potesse es- 
sere usato direttamente per 
l’elaborazione. 

Una programmazione cosi strutturata 
fu ispirata dal campo dell 'analisi numeri- 
ca. che divenne il punto di partenza per 
adottare la notazione formale della ma- 
tematica. Un altro linguaggio introdotto 
negli anni 70 e che segnò la nascita 
ufficiale della programmazione struttu- 
rata fu il PASCAL. Bisogna però, a que- 
sto punto, tenere presente che per ap- 
prendere pienamente e fare propria ta 
logica della programmazione strutturata 
è indispensabile essere consci dell’ im- 
portanza di saper costruire struttural- 
mente bene i programmi, mentre risulta 
del tutto secondaria la loro 
codificazione. 


Un caso: il Basic 


L'utilizzo di questo linguaggio* netta 
sua forma primitiva, portava ad una cer- 
ta insoddisfazione dal punto di vista del- 
l' applicazione. In questa sede si vuote 
proporre un metodo per poter utilizzare 
in maniera adeguata questo linguaggio 
e per cercare, inoltre, di indirizzare gli 
utilizzatori del basic verso un'impiego 
detta programmazione strutturata. 

Si vuote altresì dimostrare che anche 
in questo linguaggio si può programma- 
re in maniera da poter evidenziare l’a- 
spetto metodologico che sta alta baso 
detta stesura dei programmi poiché que- 
sto, come abbiamo già più volte ripetuto, 
astrae, entro determinati termini, dal lin- 
guaggio di programmazione. 

II primo punto da affrontare, per una 
buona stesura del programma, consiste 
nell 1 analisi delle strutture fondamentali 
per il controllo del flusso logico. 

Controllo del flusso 


Per sviluppare questo concetto sì suddi- 
vide il programma in una serie di fasi, 

• Definizione del problema. In que- 
sta fase devono comparire gli enunciati 
chiari delle elaborazioni che si vogliono 
eseguire e dei dati che verranno utilizza- 
ti nella fase di calcolo. In pratica* tutto dò 
rappresenta la descrizione in chiaro del 
problema che si Vuole affrontare con 
l'ausilio dell’elaboratore. Esempio: 

Dato l'ammontare di un prestito (im- 
porto) si vuote conoscere il valore del- 
l'interesse su II’ importo considerando 
che: 

• se Hmporto è > 1 0000000 dì lire 

• allora la percentuale di interesse è 
10 % 

• altrimenti la percentuale di interesse 
è 8% 

• Analisi del problema* Questa fase 
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presenta la descrizione dei dati in in- 
gresso e in uscita e il modello di calcolo 
che v iene utilizzato. Esempio: 

• nome attribuito al programma 
interesse 

• dati in ingresso: importo 

« dati in uscita: interesse su imperio 

• modello di calcolo: 

dati ausiliari: peteim (percentuale di 
interesse) 

elaborazioni se importo < 
tOOOOOOO ailora porcini - f 0 
altrimenti* pencìnt = 8 
interesse = percint* importo 


• Descrizione del dati delPalgortt- 

mo. Quest 'ultima fase prevede la for- 
mulazione dei programma in pseudoco- 
difica, vale a dire che al posto delle istru- 
zioni vere e proprie del linguaggio BA- 
SIC e dei dati effettivi si utilizzano delle 
espressioni del linguaggio comune per 
descrivere le operazioni da eseguire e i 
dati da memorizzare. 

I diagrammi sintattici 


Per poter meglio descrivere le fasi di 
un programma e le istruzioni del lin- 
guaggio BASIC si usa di norma un grafi- 
co motto rigoroso, ma di immediata 
comprensione: il "diagramma sintatti- 
co”, Per meglio comprenderlo passia- 
mo ad esaminare ad uno a uno i simboli 
che vi compaiono. 

Simboli terminali: essi sono rappre- 
sentati graficamente nella forma: 

oppure: 

e vanno utilizzati cosi come appaiono 
non richiedendo alcuna ulteriore 
spiegazione. 

Simboli non terminali: essi sono rap- 
presentati dal sìmbolo: 

e non possono essere usati direttamen- 
te in quanto il loro significato deve esse- 
re ulteriormente spiegato mediante un 


altro diagramma o tramite una 
descrizione. 

Linee di flusso: sono rappresentate 
da linee orientate 

che individuano l'ordine con cui vengo- 
no letti ed eseguiti i simboli nei digrammi 
sintattici in un punto di diramazione Tu- 
tilizzatore può scegliere di seguire una 
qualunque via a meno che non esistano 
ulteriori limitazioni. 


Impiegando questi diagrammi il letto- 
re si renderà conto della loro potenza sia 
da un punto di vista didattico che come 
utile mezzo per rendere la programma- 
zione più flessibile. A questo scopo si 
illustra, qui dì seguito, un esempio che 
utilizza i diagrammi sintattici per descri- 
vere una sequenza di operazioni. 

Si carichi da tastiera una serie di 
variabili: 
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• Descrizione dei dati 

dati scambiati con Testemo 
dati in ingresso 

IMPORTO 
% SCONTO 

daù in uscita 

IMPORTO SCONTATO 

• fìne dati scambiati con Testemo 

dati ausiliari 

SCONTO SU IMPORTO 

■ fine descrizione dei dati 

• Elaborazione dei dati 
scrivi su video 


«RET> 'calcola importo scontato" <RET» 
scrivi su video 

(“ammontare e percentuale sconto 1 ' <RET> <RET> ) 
scrivi su video 

("fornire l'importo" <RET> ) 
leggi da fastfera (IMPORTO) 
scrivi su video 

(‘"fornire la percentuale di sconto") 
leggi da tastiera (% SCONTO } 

SCONTO SU IMPOflTO=% SCONTO* IMPORTO/1 00 
IMPORTO SCONT AT 0= IMPORTO- SCONTO su IMPORTO 

scrivi su video 

«RET > J importo scontato=‘\ IMPORTO SCONTATO) 

• fine elaborazione dei dati 

• fine programma SCONTO. 


RIGA 273 
RIGA 282 
RIGA 293 



RIGA 258 ES.l CARICATO SU FILE ESI 
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COMPUTER 

MENACE 

di Marco De Rosa 


Menace, Ovvero: Computer Matchbox 
Educatile Naughts and Crosses Engine. 

La storia comincia nel 1961 ad Edim- 
burgo, capitale della Scozia. In quegli 
anni un computer come il CBM 64 occu- 
pava pressappoco una stanza, pesava 
qualche tonnellata e non era ceno alla 
portata delle tasche di un privato. Un 
certo Donald Mieti ìe, professore di fc*ok> 
già alf'universrtà ebbe allora una idea 
eccezionale per costruire con poca spe- 
sa una macchina capace di apprendere 
delle semplici strategie. In un articolo in 
Penguin Science Survey dei 1961, voi. 
2, egli descrive come costruire una mac- 
china che impara a giocare il Filetto (o 
Tris), usando circa trecento scatole di 
fiammiferi (!f), e una manciata di pedine 
colorate. 

Su ognuna delle scatole egli incollò 
delle possibili configurazioni raggiungi- 
bili in una partita di Tris, eliminando 
quelle banali, quelle ìrragiungibili, e le 
speculari, e contrassegnò ognuna delle 
mosse con un colore. Por riempì ogni 
scatola con tante pedine quante erano 
le mosse, ognuna del cotone corrispon- 
dente A questo punto cominciò a gioca- 
re con la macchina usando la seguen te 
strategia: 

# Si prende la scatolina corrispondente 
alla configurazione sulla scacchiera, si 
agita e si estrae casualmente una delle 
patirne. Sì esegue la mossa del cotone 
della pallina estratta. Questa corrispon- 
de alla mossa della macchina. 

m L'errore umano risponde alia mossa, 
giocando nei modo migliore possibile. 

* Si eseguono i passi 1 e 2 fino alla 
vittona detta macchina o deiruomo. 


• Si vince la macchina si rimettono le 
paifine al toro posto e si comincia un'al- 
tra partita. Se vince Tuomo. si prende la 
pallina corrispondente all'uftima mossa 
effettuata dalla macchina e si elimina 
dalla scatola. Le aftre vengono rimesse 
al toro posto. Nel caso abbastanza raro 
in cui si giunge ad una configurazione 
che corrisponde ad una scatola senza 
nessuna pattina, la macchina abbando 
na, e toglie quella corrispondente alla 
mossa precedente. 

All'Inizio ovviamente la macchina gio- 
cò in maniera totalmente stupida, ma, 
piano piano cominciò ad eliminare tutte 
le mosse perdenti e a conservare invece 
le strategie vìncenti. Dopo diciassette 
partite aveva abbandonato tutte le aper- 
ture tranne quella d'angolo. Dopo la 
ventesima pareggiava abbastanza fre- 
quentemente, e Michie tentò di "distrar- 
la” usando delle varianti fallaci. Dopo 
uno sbandamento iniziale la macchina 
imparò a fronteggiarle tutte. Atta fine, 
quando Michie decise di ritirarsi* essa 
vinceva otto partite su dieci. 

Ovviamente il tempo di apprendimen- 
to è proporzionale all'abilità del giocato- 
re umano, dato che le palline, e quindi le 
mosse cattive, vengono eliminate solo in 
caso in cui la macchina perde. Essa di- 
venta un giocatore pedono quando ha 
giocato tutte le partite possibili. Questo 
ovviamente elimina la possibilità di co- 
struzione di un Robot siffatto, per i giochi 
che siano appena più complessi del Tris 
(pensate a quante potrebbero essere le 
possibili configurazioni di una scacchie- 
ra nel gioco degli scacchi!). 


Nel 1984 è più comodo implementare 
una versione di Menace (macchina di 
scatolette di cerini educabile al gioco del 
Tris), su un personal computer ohe ab- 
bia un minimo di RAM per poter tenere 
un "vocabolario" di configurazioni. 

Come si usa Menace 


Dopo aver caricato il programma e 
aver dato II RUN ( vi viene chiesto se 
volete caricare un vocabolario già esi- 
stente sul disco. Dopo aver risposto con 
S o N, vi viene presentata la scacchiera 
vuota. Voi giocate sempre per primi, in- 
dicando ii numero delia casetta come in 
figura 2. Menace risponde automatica- 
mente e si accorge detta fine della parti- 
ta in qualsiasi occasione. Può anche ab- 
bandonare se ritiene di non avere più 
possibilità di vittoria 
Il tem po di risposta con un vocabolario 
pieno può arrivare ad una trentina dì 
secondi. Premendo in qualsiasi momen- 
to il fasto "freccia a sinistra", potete re- 
gistrare sul disco gli aggiornamenti del 
vocabolario. 

Considerazioni 
sui programma 


Questo è il classico tipo di idea che si 
realizzerebbe benissimo usando un lin- 
guaggio strutturato tipo il Pascal. Pur- 
troppo il Basic ha il difetto dì essere resi- 
dente sulla macchina al momento del- 
l'acquisto, e i programmatori in genere 
sono troppo pigri per infilare il dischetto 
del Pascal nel Driver e per caricarlo (e 
pensate che su! C&M 64 ne girano ben 
tre versioni!!). Per cercare di rendere il 
programma più leggibile in un mare di 
FOR... NEXT, ho pensato allora di crea- 
re otto suforoutines che si occupano del- 
la gestione dette varie operazioni : 

1000 Stampa fa schermata compren- 
dente i messaggi e la scacchiera attuale. 
2000 Controlla se la configurazione at- 
tuale presenta delle righe vincenti 
3000 Decide chi ha vinto. 

4000 Esegue la mossa di MENACE 
5000 Permette l 'input della mossa del- 
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lo sfidante umano, 

6000 Gestisce la fine della partita. 
7000 Salva sul disco il vocabolario del- 
le configurazioni aggiornato all’ultima 
mossa. 

8000 Carica dal disco il vocabolario. 

Queste vengono poi gestite da un 
programma principale lungo una venti- 
na di righe, estremamente semplice e 
descritto da parecchie REM, L'unica su- 
broutine un po’ complessa è la 4000, di 
cui potete vedere il diagramma di flusso 
in figura 1. 

E f possibile compilare il programma 
per aumentare la velocità di risposta. I 
risultati migliori II ho ottenuti usando 
l'Austro Compilar piuttosto che il Pet 
Speed 64, 

Descrizione delle Variabili 


M(9,500) Contiene il vocabolario di 
tutte le configurazioni trovate fino ad ora 
dal programma. Il primo indice è relativo 
alla casella (daJI‘1 a 9), il secondo alla 
configurazione, 

P(9) Contiene la configurazione attua- 
le della scacchiera. 

PP(9,9) Contiene tutte le configurazio- 
ni trovate nella partita corrente. Il primo 
indice è relativo alla casella (dairi a 9), il 
secondo aJia configurazione. 

PU(9) Contiene ì puntatori, per ogni 
mossa, alla relativa configurazione nel 
vocabolario. Zero indica la creazione di 
una nuova matrice nel vocabolario 
PT<9) Contiene tutte le mosse della 
partita. 

P$<9) Contiene la configurazione at- 
tuale della scacchiera, in versione stam- 
pabile sullo schermo. 

In tutti r vettori di configurazione, il nu- 
mero uno indica le mosse umane, il due 
le mosse del computer, il tre le mosse 
non eseguibili da Menace, lo zero quelle 
possìbili per entrambi, 

PI Numero di configurazioni presenti 
nel vocabolario 
MO Mossa attuale, 

K Contatore del numero delle mosse 
FL Rag di vittoria. Il numero uno indica 
la vittoria umana, Il due quella di Mena- 
cejl tre ( abbandono dell'elaboratore, lo 
zero la patta. 

Tutte le altre sono variabili d'appoqqio 
o di ciclo. 



15 Mette il colore di schermo e di sfon- 
do sui verde, 

17 Iniziafizza la funzione Random. 

20 Pulisce lo schermo e mette il colore 
dei caratteri sul bianco. 

30 Dimensionai vettori. 

35-37 Chiede se si vuole caricare un 
vocabolario già esistente sul disco. Se la 
risposta è si, va alla su tinnitine 8000, 
altrimenti continua. 

38 Pulisce lo schermo 
40 Stampa su schermo scacchiera e 
messaggi usando la subroutine 1000. 
50 Accetta la mossa dell'essere uma- 
no, usando la subroutine 5000. 

60 Come la 40. 

65 Controlla se uno dei due conten- 
denti ha vinto, usando le subroutine 
2000 e 3000. 

70 Controlla se sono stale eseguite no- 
ve mosse e se il flag dì vittoria è nullo. In 
caso positivo considera conclusa la par- 
tila con risultato di parità, chiama la su- 
broutlne 6000 (fine partita), e toma alia 
rigo 40. Altrimenti continua, 

80 Controlla se il flag di vittoria è 1 o 2. 


In caso positivo considera conclusa la 
partita, chiama la subroutine 6000 (fi- 
ne partita) e toma alla riga 40. Altrimen- 
ti continua, 

90 Esegue la mossa di Menace usando 
la subroutine 4000. 

95 Contmllaseilflagdrvìttoriaègguale 
a tre (abbandono). In caso positivo con- 
sidera conclusa la partita, chiama la su- 
broutine 6000 (fine partita) e toma alla 
riga 40. Altrimenti continua, 

100 Come fa riga 40. 

110 Come la riga 65. 

120 Come la riga 80. 

130 Toma alla riga 40. Con questa ri- 
ga si conclude il corpo principale del 
programma. 

1000-1002 Stampa messaggi sullo 
schermo, 

1005-1007 Prende la configurazione 
attuale contenuta in P(l) e la converte in 
vettore stringa colorando in blu e rosso i 
numeri 1 e 2. 

1010-1060 Stampa sullo schermo la 
scacchiera con alcuni messaggi. 
2000-2070 Controlla se esiste una ri- 
ga verticale vincente. 

2075-2140 Controlla se esiste una ri- 
ga orizzontale vincente, 

2150-2170 Controlla se esiste una ri- 
ga diagonale vincente, 

3000-3020 Questa subroutine viene 
chiamata tre volte dalla 2000. In caso di 
vittoria di uno dei giocatori stampa il 
messaggio corrispondente e setta il Rag 
di vittoria in modo appropriato. 
4000-4516 Vedi il diagramma di flusso 
in figura 1. 

5000-5021 Chiede la mossa umana, 
5022 Controlla se è stato premuto il ta- 
sto “freccia a sinistra". In caso positivo 
salva sul disco il vocabolario attuale 
usando la subroutine 7000 e toma alla 
5020. In caso contrario continua. 

5025 Controlla che la mossa sia ledta. 
Se non lo è toma alia 5020- Se lo è 
continua. 

5027 Aggiorna il contatore delle mosse 
e la matrice di configurazione attuale. 
5030-5031 Archivia la configurazione 
attuale nel vettore PP(9,9), 

6000-6010 Controlla il flag di vittoria. 
Se ha vinto Menace o c’è una patta salta 
alla $050 senza aggiornare il vocabola- 
rio- Infatti Menace impara solo in caso di 
sconfitta 
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6015 Diminuisce it contatore delle 
mosse per tornare all'ultima mossa ese- 
guita da Menate 

6016 Nel caso m cui ci sia un abbando- 
no c una pana, diminuisce il contatore' 
delle mosse ulteriormente in una unità 


6030 Mette un 3 nella configurazione 
corrispondente alf ultima mossa di Me- 
nace, aggiornando il vocabolario. 
6050*6080 Pulisce le variabili per ia 
nuoya partita. 

7000*7080 Crea sul disco un file se- 


quenziale d» nome DATA, in cui salva il 
vocabolario, preceduto dal numero di 
configurazioni presenti nello stesso. 
8000-8080 Carica dal disco il file se- 
quenziale DATA 



10 REM ************************* 
******** 

11 REM COMPUTER MENAGE BV MARCO 

HE ROSA 

12 REM ************************* 
******** 

15 POKE 53280, 5 -POKE 53281,5 
17 M=RHB<0) 

20 PR I NT 1 " C CLEAR ] CE I ANCO ] “ 

30 DIN M< SO 50O ) , P<9> , PP< 9 , 3 ) , PU C 
9>,PTC9>,P$<9> 

35 PRINT"DATI HA DISCO ?" 

3^ SET Ai : IF fii="" THEN 36 


40 

50 

60 


65 

78 


IF Ai=’‘3‘' THEN 
FRI NT "[CLEAR]" 
00 3 Ufi 1000: REM 
HI ERA 

00 SU E -5000 : REM 
GOSUB 1000: REM 
HIERA 

GOSUB 2000 : REM 
TORIH 

IF K=3 AND FL=0 


GOSUB 8000 

DISEGNA SCACC 

MOSSA UOMO 
DISEGNA SCACC 

CONTROLLO VII 
THEN FRI NT "CD 


UWN ] PATTA” GOSUfi 6000 : GOTO 4f 
•REM CONTROLLO PATTA 
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80 IF FL=1 OR FL=2 THEN GOSUB 60 
00: GOTO 4«: REM FINE PARTI TR 
90 GOSUB 4000: REM MOSSA COMPIUTE 
R 

95 IF FL=3 THEN GOSUB 6000: GOTO 
40: REM FINE PARTITA PER ABBA 
NBONO 

100 GOSUB 1000: REM DISEGNA SCRCC 
H ì ERA 

11© GOSUB 2000: REM CONTROLLO VIT 
TORI A 

120 IF FL=1 OR FL=2 THEN GOSUB 60 
00: GOTO 40: REM FINE PARTITA 
130 GOTO 40: REM FINE CORPO PROGR 
AMMA 

1000 REM SUB DISEGNA SCACCHIERA 
. 1002 PR I NT " [ HOME H R I GHT ] [ BLEUH2 R 
IGHT] MARCO DE ROSA - COMPUTER 
MENAGE 12 DOWN KBI ANODI " 

1005 FOR 1 = 1 TO 9 : >=STR$<P< I > > 

+" “ IF P<I>=1 THEN P$a>=”[R 
OSSO] "+P*a>+" [BIANCO] “ 

1006 IF P< I >=2 THEN PtCI >=“ [BLEU] " 
+P*a>+"[ BIANCO!" 

100? NEXTI 

1010 PR I HTP*< 1 > ; '* I" ; P$< 2> ; " I" ; P*<3 
CI SONO " ;Pl; “ hatri 

ci- 

1020 PR I NT " 1 t " 

1 @30 FRI NT P$<4> ; " I " ; P$-: 5> ; " I " ; F$< 
6) ; " NEL VOCABOLARIO" 

1048 PRINT" 1 1 " 

1050 PRINT P$C?> ; I ” ; P* (8ì ; " 1" P$( 
9 > ; " [ROSSO ] 1 = UMANO [BIRN 

CO ] C BLEU ]2=C0MPUTER C B I ANCO ] 

il 

1060 RETURN 

2000 REM SUB CONTROLLO VITTORIA 
2010 FOR 1=1 TO ? STEP 3 
2015 St="“ 

2020 FOR J=I TO 1+2 
2930 S$=S$+STR* ■; p < J) ) 

2040 NEXT J 
£050 GOSUB 3000 


2070 

2075 

NEXT 

FOR 

I 

1=1 

TO 

3 

2680 

2090 

3$=" 

FOR 

M 

J=I 

TO 

1+6 STEP 3 


2100 St=S$+STR$ CP< J > > 
2110 NEXT J 
2130 GOSUB 3000 
2140 NEXT I 


2150 S*=STR* (PCI > > +STR* <P<5>> +STPT 
CP<9> > : GOSUB 300O 
2160 S* =STR* <P< 3> > +STR$ < P <5 > >+STR$ 
<P<7>>: GOSUB -3000 
2170 RETURN 

3000 REM SUB SUB CONTROLLO 
3005 IF S$=" 2 2 2" THEN PRINT 
PR I NT "HO V I NTO 1 0" = FL=2 = RETUR 
N 

3019 IF S*=" 1 1 1" THEN PRINT: 
PRINT "HAI VINTO TU" : FL=1 : RETU 
RN 

3020 RETURN 

4000 REM SUB MOSSA COMPUTER 
4003 K=K+1 

4605 FOR 1=1 TO 9 ; IF P(I>=3 THEN P 
< I )=0 
4006 NEXTI 

4010 FOR J=1 TO Pi: FOR 1=1 TO 9 
4020 IF <Pa>=M<I,J> OR <M< I > J>=3 
AND PCI>=0>) THEN NEXTI-KK=J: 
J=P1 : NEXTJ : GOTO 4050 
4830 1=9: NEXTI : NEXTJ: REM NON TROV 
ATA 

4040 P1=P1+1 : FOR 1=1 TO 9:M<I,P1>= 
PCD: NEXTI : GOTO 4100 
4050 FOR 1=1 TO 9:P<I)=M<I/KK>NEX 
TI 

4060 FOR 1=1 TO 9 : IF P<I>=0 THEN I 
=9 : NEXTI : GOTO 4100 
4070 NEXT I : FL=3 : PR I NT " [ DOWN ] ABBAHD 
ONO" : GOTO 4516 
4100 REM COMMON AREA 
4110 MO=INT <RND< 1 >#9>+l : IF P(MOK> 
G THEN 4110 

4112 P (MO > =2 : PU t K >=M0 : PT CK) =KK : KK= 
0 

4115 FOR 1=1 TO 3 '■ PP< I .■ K>=F< I > ' NEX 
TI 

4516 RETURN 

5008 REM SUB MOSSA UOMO 
5010 PRINT" [5 DOWN INUMERÒ ?"; 

5020 GET A$:IF A$= " " THEN 5020 

5021 MO=VAL<A*> 

5022 IF Af="+-" THEN GOSUB 7600 :GOT 
0 5020 

5025 ÌF M0<1 OR M0>9 OR P<M0)=1 OR 
P<M0>=2 THEN 5020 
5027 P<MQ)=1 : K=K+1 

5030 FOR 1=1 TO 9 ; PP< I K>=P< I > : NEX 

TI 

5031 RETURN 
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6000 REM SUB FINE PARTITA 
6010 IF FL=2 OR FL=S THEM 6S50 
5015 K=K- 1 

6016 IF FL=3 THEM FL=0=K=K-1 
6030 M < PU <iO , PT < K ) > “3 
6050 FOR 1 = 1 IO TFìD =0 : PU < I =3 : F' 
TCI>=0 : NEXTI 

6060 POR 1=1 TO ? • FQR J=1 TO 9- FPC 
I ,.T)=0 NEXTJ, I 
6S70 K=0 : FL=G 
6075 PR I NT" [ OLEARI " 

6039 RETURN 

7000 REM SUB SALVA FILE SU DISCO 
7013 OPEN 2,8,2, "00 ^ DATA, S,W" 

7020 PRINT#2, PI 


7030 FOR J=1 TO Pi 
7040 FOR 1=1 TO 9 
7058 PRINT#2,M<I, J> 

7060 NEXTI, J 
7070 CLOSE 2 
7036 RETURN 

3000 REM SUB LEGGI FILE DA DISCO 
SO 1 0 OPEN 2 , 8, 2, " O : DATA , S , R " 

3020 IMPUTA, PI 
8033 FOR J=1 TO PI 
8040 FOR 1=1 TO 3 

8050 INFUT#2,H( I, J> 

8060 NEXTI, J 
8870 CLOSE 2 
8088 RETURN 
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LINEA 

DEL PROGRAMMA 



m 

! 

! 

36 

37 

5028 

5021 

5022 


FL 

! 

70 

SS 

95 

120 

3005 

3010 


! 

4070 

6018 

6016 

6070 



I 

! 

1005 

1006 

1087 

2010 

2020 

2070 


! 

2075 

209tì 

2140 

4005 

4806 

4010 


» 

4020 

4030 

4040 

4050 

4060 

4870 


i 

4115 

5030 

6050 

6060 

7040 

7050 


; 

7060 

3046 

305@ 

8060 



J 

! 

2020 

2030 

2040 

2090 

2100 

2110 


! 

4010 

4820 

4038 

6060 

7830 

7050 


! 

7060 

8030 

8050 

8060 



K 

! 

70 

4003 

4112 

4115 

5027 

5030 


! 

6015 

6016 

6030 

6870 



KK 

1 

4020 

4050 

4112 




M 

r 

17 






MC 

t 

30 

4020 

4@40 

4050 

6030 

7050 


! 

8050 






MO 

! 

4110 

4112 

5021 

5025 

5027 


Pf< 

! 

30 

1005 

1006 

1010 

1030 

1058 

PC 

! 

38 

1005 

1006 

2030 

2100 

2150 


! 

2160 

4605 

4020 

4040 

4050 

4060 


j 

4118 

4112 

4115 

5025 

5027 

5030 


! 

6050 






PI 

! 

1010 

4810 

4020 

4040 

7020 

7030 


f 

8820 

8038 





PP< 

j 

30 

4115 

5030 

6860 



PTC 

1 

30 

4112 

6030 

6050 



PUC 

! 

30 

4112 

6038 

6050 



Sì 

f 

2015 

2030 

2080 

2100 

2150 

2160 


i 

3O05 

3010 
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SPEEDLOAD / SAVE 

di Ernesto Sidotl 


Hai mai salvato blocchi di memoria? Ma- 
gari di diversi Kbyte? Se è così questo 
programma può interessarti. 

Spesso accade di dover archiviare su 
periferica valori che risiedono da una 
locazione ad un'altra, e magari il banco 
di memoria da copiare è di diverse mi- 
gliaia di locazioni. It metodo più intuitivo 
è senz'altro quello di avviare un ciclo 
che legga i valori nelle locazioni interes- 
sate e li scriva per mezzo delle Istruzioni 
PRINT^ e GET* su disco o su nastro. 
Un sìmile procedimento è semplice e 
voloce da realizzare, ma è motto lento 
nell'esecuzione che a volte può richie- 
dere addirittura decine di minuti se te 
archiviazioni o te letture sono motte. Per 
abbreviare i tempi di attesa, puoi utiliz- 
zare delle routine già presenti sul tuo 
COMMODORE. Queste routine fanno 
parte del kemal. 

Il programma proposto questo mese 
sfrutta questa tecnica e utilizza la 
SETLFS, la SETNAM t la SAVE e la 
LOAD. Questo programma ti permette di 
salvare su disco o su cassetta qualsiasi 
banco di memoria e viceversa di carica- 
re su qualsiasi banco dì memoria ì valori 
archiviati su memoria di massa. 

Descrizione dei programma 


Linea 1 100. Satto alla routine che 
realizza la maschera di apertura 
programma. 

Lìnea 1 170-1 190. Calcolo dei high- 
byte e del low-hyte dell' indirizzo di oar- 
Linea 1380. Metto nella locazione 
251 e 252 il lew-byte a l'hìgh-byte del- 
l'indirizzo dì partenza. Queste due loca- 
zioni, insieme alla 253 e alla 254, costi- 
tuiscono un'area di 4 byte liberi per pro- 
grammi realizzati dal l 'utente. 

Linea 1390. Metto neiraccomulatore 
(POKE 780) il valore 251 che rappre- 


senta lindi rizzo dove sono allocati i byte 
che indicano la locazione di partenza dei 
banco da caricare. 

Metto ancora nel registro x (POKE 781) 
il valore del low-byte e nel registro y 
(POKE 782) il valore dello high-byte del- 
rindirizzo dell'ultimo byte da 
lenza del banco su cui operare. 

Linea 1190. Se si è scelto DISK, allo 
ra II programma continua alla linea 
1910. 


Linea 1200. Se sì è scelto LOAD, Il 
programma continua alla linea 1530. 

Linee 1270-1280. Input dell'ultima 
locazione da salvare incrementato di 1 
per salvare anche 1 byte successivo a 
quello dato. 

Linee 1350-1390. Calcolo del high- 
byte e del low-byte dell'Indirizzo di fine 
dei banco da copiare. 

Linee 1970. Satta alla linea 1890 e 

apre II canale del tape. 
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1 

LINEA 

DEL PROGRAMMA 




| 







BL 

ì 

1360 

1399 

2010 

2200 



C$ 

\ 

1200 

1910 

2130 

2140 

2330 

2390 


r 

2906 

2910 

3000 

3010 

3020 


EB 

t 

1350 

1360 

1398 

2000 

2010 

2208 

EM$ 

t 

2090 

211W 

2310 

232© 



EH 

i 

2990 

2100 

2118 

2318 

2320 


ES 

i 

2090 

2110 

2310 

2320 



ET 

; 

2990 

2110 

2310 

2320 



GY 

j 

2590 

2610 

2630 

2650 

2760 

2788 


i 

2300 

2320 





HH 


1170 

1130 

1330 

1548 

2190 

233Q 

J 

i 

2440 

2450 

2470 

2500 

2510 

2520 


i 

2540 

2550 

2560 




K$ 

r 

1190 

2710 

2720 

2738 

2740 


L 

i 

1690 

1700 

1720 

1310 



LI 

j 

1130 

1330 

1540 

2190 

2330 


NM$ 

; 

1690 

1736 

2030 

2150 

2300 

2928 

S 

t 

1710 

1730 





ST 

! 

1600 






T 

i 

L'y60 






V 

i 

2950 







t 

1179 

1180 

1278 

1230 

1350 

1368 


i 

1720 

1730 

1988 

1990 

2000 

2010 


ì 

2930 
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caricare. 

Linea 1450. in questa linea richiamo 
la routine per il SAVE del kemaL Que- 
sta, prima di andare in esecuzione, leg- 
gerà I valori nei registri appena menzio- 
nati e sì comporterà di conseguenza. 

Linee 1530-1620. Legge un blocco 
dal tape. 

Linea 1530. Apre il canale del 
registratore. 

Linea 1540. Metto nella locazione 
780 il valore che specifica il LQAO cioè 
io 0 (1 se verify), nei registro x e nel 
registra y, il low-byte e l ‘high-byte dei- 
l 'indirizzo dal quale comincerà il compu- 
ter a caricare i valori provenienti dalla 
memoria di massa. 

Linea 1590. Mando in esecuzione la 
routine del kemal per il load. 

Linea 1600. Realizzo un test sulla 
variabile $T, Se questa variabile assu- 
me valore 46, ossìa hanno valore 1 i bit 4 
e 5, il file non è stato letto correttamente 
e il programma finisce. 

Linee 1690-1680. Con questa routi- 
ne apro il canale del tape in modo simile 
distruzione OPEN 1 p 1 t 0.NM$. 

Linea 1690. Calcolo la lunghezza del 
nome del file. 


Linea ITIMI. Metto il valore calcolato 
nella locazione 183 (in questa locazione 
va sempre messo il numero di lettere 
che compongono il nome del file con II 
quale st sta operando). 

Linea 1710. Calcolo deir indi rizzo di 
fine array. 

Linee 1720-1740. Metto il nome del 
file nelle locazioni appena dopo gli 
array. 

Linee 1750, Apro il file logico metten- 
do nella locazione 780 il numero del file, 
nella 781 il numera deila device e nella 
782 r indirizzo secondario. 

Linea 1800. Chiamo la routine 
SETLFS del kemal. 

Linee 1810. Metto nella locazione 
780 il valore della lunghezza del nome 
del ti le e nella 781 e nella 782 Hndi rizzo 
del puntatore fine array e mando in ese- 
cuzione la routine SETMAN del kemal, 
Linea 1870. Avvio il registratore por- 
tando a valore 1 it settimo byte della 
locazione 157 (POKE 157, 128), 

Linea 1980. Input deirìndirizzo di fi- 
ne del banco di memoria da salvare. 
Linee 2000-2010. Calcolo deirhigh- 
byte e del low-byte. 

Linea 2030. Controllo se esistono er- 


ma Se così non è, sarto alla linea 2350. 

Linea 2110. Se l'errore è di tipo 63. 
allora sul disco esiste un file con lo stes- 
so nome e quindi se si vuole scrivere un 
altro file su disco con il medesimo nome 
bisogna cancellare quello già esistente. 

Linea 2150. Cancello il vecchio file. 

Linee 2190-2210. Salvo il file su di- 
sco usando il medesimo procedimento 
descritto per il tape 

Linee 2290-2370. Leggo dal floppy. 

Linee 2440-3040. Realizzo la ma- 
schera con le opzioni offerte dal 
programma. 

Il programma descritto con qualche 
piccola modifica di ordine grafico può 
senza problemi essere usato sul VIC 20. 
Buon lavoro!. 

ROUTINE INDIRIZZO 


LOAD ... 65433 

SAVE 65496 

SETNAM 65469 

SETLFS,,.. .65466 


Figura 1 


1 @y@ 

REM 

*?*»**#***#***+*+***** 

1010 

REM 

* 

* 

1 020 

REM 

■M SPEEBSflVE/LOfiD 

* | 

1030 

REM 

è 

$ 

1 040 

REM 

* DI 

f 

1050 

REM 

* 

f: 

1060 

REM 

*- ERNESTO SI DOTI 

* 

1070 

REM 


-!■ 

Tr 

1 930 

REM 


*É 

1 090 




1 1.00 
1110 

goto 

REM 

2440 




1 120 

REM 

- CALCOLO HIGH BVTE 


1130 

REM 

E LODI BVTE 


1 140 

REM 

DELL' INDIRIZZO 

- 

1 L50 

1 160 

REM 

REM 

DI PARTENZA 

— 



1170 

HH=INTCZ/25i> 


1130 

LI-Z 

-HH*256 


1190 

IF K: 

f=”D" THEN 1910 


1200 

IF C$= " L “ THEN 1530 



1210 

1220 

REM 


1230 

REM 


1240 

REM 

* SALVA SUL TAPE * 

1250 

REM 

# # 

1 260 

REM 


1270 

INPUT 

*' t BLEU 1 l l'StjH 1 END RUBRE: 


s 

[BIANCO]*' *2 

1280 

Z=Z+ 1 


129Q 

REM 

— — « 

1 300 

REM 

- CALCOLO HIGH BVTE - 

1310 

REM 

E LOM EVIE 

1320 

REM 

DELL ' INDIRIZZO 

1330 

REM 

DI FINE 

1 340 

REM 

„ 

1350 

E8= I F 

IT < Z/25S) 

1 

I jyiy 

BL-Z- 

i E E'$256 

1370 

GOSUI 


1330 

POKE 

251., LI - POKE 252, HH 

1390 

POKE 

760,251 F-OKE 731 , BL : POK! 
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1400 

1410 

1429 

1430 
1440 
1450 
1460 
1470 
1438 
1490 
1580 
1510 
1520 
1530 
1.548 

1550 

1560 

1570 

1538 

1590 

1688 

1610 

1628 

1630 

1648 

1656 

1660 

1670 

1680 

1690 

1780 

1710 

1728 

1738 

1748 


DEL 
IL $ 


KERNhL - 
AVE 


782, EB 
FRI NT 

REM 

REM - ROUTINE 
REM - PER 

REM 

3VS65496 
GOTO 1610 


rem *********************** 

REM # $ 

REM * LEGGE DAL TAPE * 
REM * * 

rem sic ********************** 
GOSUB 1690 

POKE 780,0-PQKE 78 1 , L I : POKE 7 
82, HH 

REM 

REM - ROUTINE DEL KERNRL - 
REM - PER IL LORD 

REM 

SVS65433 

IP <ST AND 48) THEN FRI NT" E 
DOWN ! LORD " : PRI NT "ERROR" 

CLOSE 1 
END 

REM *********************** 
REM * * 

REM * RPRE-IL ORNALE TAPE * 
REM * * 

REM *********************** 
L=LEN(NM$> 

POKE 1 83 , L 

S=256*PEEK< 56 >+PEEK<49 ) 

FOR 2=1 TO L 

POKE S+Z- 1 , ASC < N I D$<NM$ , Z, 1 > > 
NEXT 


1870 

1330 

1910 

1920 

1930 

1940 

1950 

I960 

1970 

1980 

1990 

2000 

2010 

2020 

2038 

2040 

2058 

2068 

207© 

2030 

2890 

2100 

2110 


2120 

£130 

2148 

2150 

2168 

2170 

2180 

2190 


2200 


1750 POKE 780, 1 ■ POKE 781,1 POKE 78 

2,0 

1760 REM 

1770 REM - ROUTINE DEL KERNRL - 
1780 REM - SETLFS 

1790 REM 

1800 SVS65466 

1810 POKE 780, L- POKE 781,PEEK<49> : 
POKE 782, PEEK<50) 


2210 

2220 

2238 

2240 

2250 

2260 

2270 

2230 

2290 


1820 REM 


2300 


1830 REM - ROUTINE DEL KERNRL - 
1840 REM - SETNfiM 

1850 REM : 

1860 SVS65469 


2310 

2320 

2338 


POKE 157,128 
RETURN 

IF C*="L" THEN 2290 

rem *********************** 
REM * $ 

REM * SALVA SUL DISCO * 
REM * * 

REM *********************** 
INPUT " l DOWN 3 [ BLEU 3 END ADDRES 
S [BIANCO!" ;Z 

Z=Z+1 

EB=I NT <2/256 ) 

BL=2-EB*256 

FR I NT " C UP 3 1 BLEU ] " 

OPEN 15,3, 15, "IO" 

REM 

REM - APERTURA DI UN FILE - 
REM ~ PER LA SCRITTURA - 

REM 

OPEN 3, 8, 1 , "0 = '* +NM$+ " ,P,W " 

I NPUT# 15, EN , Zm , ET , ES 
IF EN=0 THEN 2190 
IF ENOS3 THEN PRI NT" [ROSSO! [ 
LEFT ! [ DOWN ! "EN ; EH* , ET ; ES : GOTO 
2350 

PR I NT " [ BONN 3 F I LE EXISTS. CELE 
U 3 REPLACE <V/H> ? [BIANCO!" 
GET C$ : IF C$=" " THEN 2130 
IF C*<>"Y" THEN 2350 
PR I NT# 15," S0 : " +NM$+ " , P , 14 " 
CLOSE 15 
CLOSE 3 
GOTO 2038 

POKE 157, 128 : POKE 25 1 , L I POKE 
252, HH 

POKE 780,251 POKE 781, BL’ POKE 
782, EB 
SVS65496 
GOTO 2350 

REM *********************** 
REM * * 

REM * LEGGE DA DISCO * 
REM * * 

REM *********************** 
OPEN 15,3, 15," IO" 

OPEN 3,8,0, +NM$+ " , P, R " 

I NPUT# 1 5 , EN , EM# , ET , ES 
IF EH THEN PRI NT “ [ROSSO! E DOW 
N ! " EN , EM* ; ET ; ES ■ GOTO £350 
POKE 157, 128 -POKE 185, 0 : POKE 
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234@ 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 


2460 

2470 

2480 

2438 

2500 

2510 

2528 

2530 

2540 

2550 

2560 

2570 

2589 

2590 
2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2630 

2700 


760 j 0 : POKE 781 , LI - PQKE 782, HH 

SVS65493 

CLOSE 3 

CLOSE 15 

GOTO 2950 . 

rem *********************** 

REM * * 

REM * . MENU " * 

REM * * 

rem *********************** 

J=5 : PRINT" CCLERR 3 CUPI " ‘ POKE 5 
3280, 12 : POKE 53231,12 
FRINÌ TRECJ) "CBLEU3 ì I I I COIRLE 
OI SPEED-SRVE/LOBD CO CBLEU3 
MI! 

PRIMI 

PRINT TRE < J) " C G I ALLO ] DI 

ERNESTO SI DOTI 
PRINT 
PRINT 
PRINT 


TflBC J>" [ELEU] 

r -ì 


PRINT TRECJ)" 
! TRF’E I 
PRINT TRECJ) " 

L ..I 

FRI NT 

PRINT TRECJ) " 

r 1 

PRINT TRECJ)" 
! LORD I 
PRINT TRECJ)" 

L J 


ì DISK I 


! SRVE I 


DOUNJE 


PRINT "LEI ANCO 3 CHOME I C T 
IO RIGHT] CRVSJDISK 
POR GV-1 TO 30 ■ WEXT 
PRINT" CHOME3C7 DONNI CIO KIGHT 
] CRVOFFIDISK 
POR GY=1 TO 70 : NEXT 
PR I NT " [ HOME ] " : PRINT TRE C 25 ) " C 
6 DONNI CRVS1 TAPE 
FOR G V = 1 TO 90 : NEXT 
PR I NT " CHOME ] " : PR I NT TRE < 25 > " C 
6 DONNI CRVOFFJTfìPE 
FOR GV=1 TO 70 : NE NT 

*********************** 

* * 

* SCELTA DISCO 0 TRPE * 

* ■ * 

*********************** 


REM 

REM 

REM 

REM 

REM 


2710 

2720 


5740 


2750 

276© 

2770 

2780 

2790 

2800 
28 1 0 


7820 

2330 

2840 

2850 

2360 

2370 

2830 

2890 

2300 

2910 

23201 

2930 

2340 

2950 

2960 

2370 

298© 


3000 

3010 

3020 

3030 

3040 


GET Ki'IF K$= " " THEN 2530 
IE KÌO"T" RND EÌO"D" THEN 2 
580 

IF K$="T" THEN PRINT TABC25)" 
CHOME3 C 7 DONNI t 1© RIGHT] TELE U 
IDI3K" 

IF Ki=”D" THEN PRINT TRBC25) " 
CHOME] C7 DONNO C 25 RIGHT] CEL EU 
3 TAPE" 

PR I NT " [ E I ANCO I C HOME ] C 1 1 DOWN ] 

C 12 RIGHI] CRVS] Sfi VE 

FOR GV=1 TO 90 ■ MENI 

PRINT" CHOME] CU DONNI [12 RIGH 

TI CRVOFFISRVE 

FOR GV=1 TO 98 • NEXT 

F'R 1 NT " [ E I ANCO 3 C HOME Idi DOWN ] 

C23 RIGHT] CRVS] LORD 

FOR GV= 1 IO 30 : NEXT 

PR I N T " [ HOME I C 1 1 DOWN 3 C 23 RIGH 

T] CRVOFFJLORD 

FOR GV=1 TO 30: NEXT 

rem *********************** 
rem * * 

REM * SCELTA LORD 0 SRVE * 
REM * * 

REM *********************** 
GET Ci : IF Ci="" THEN 5756 
IF CÌO-S" RND CiO"L" THEN 2 
750 

IF C$="L" THEN PRINT" CELEU3 CU 
PIC 12 RIGHT 3 SRVE" 

IF C$="S" THEN PRINT" CELEU] CU 
P3C23 RIGHI] LORD” 

INPUT " C 3 DOWN ] F I LENflME 
CEIRNCQ]" ; HMi 

INPUT " [ DONN I C ELEU ] STRRT I HG R 
DDRESS CEIRHCOI " ; 2 
GOTO 1170 

FOR V=1 TO 2000 : NEXT : PR I NT " C H 
0MEIC14 B0NM] " 

FOR T=0 TO 8 
PRINT" 

li 

NEXT 

PR I NT " [ HOME 3 C ELEU 3 C 1 3 DOWN 3 C 1 
3 RIGHT 1 I BEO IN CV/N) ?" 

GET Ci : IF Ci="" THEN 3000 
IF Ci="V" THEN 1108 
IF Ci-"H" THEN 3040 
GOTO 3000 
END 




AUTORUN: 

COME COSTRUIRSELO 


di Giancarlo de Cobelli 


Per esaudire tutte le richieste che sano 
state rivolte alia nostra redazione per 
quanto riguarda la protezione dei pro- 
grammi abbiamo deciso di pubblicare 
questo articolo che tratta delia protezio- 
ne più usata e del resto anche più sem- 
plice concettualme n te. 

Il concetto di far ‘girare' un program- 
ma senza permetterne il listato o la copia 
spazia su campi molti vasti: non permet- 
tere la scoperta di un algoritmo impor- 
tante utilizzalo nel coeso dei program- 
ma, impedire ali "utilizzatore di eliminare 
le protezioni inserite nel listalo o la modi- 
fica stessa del listato, e in ultimo luogo, 
per evitare più copie di un programma 
specifico. Ma questo tino a un anno fa. 
Poi questo tipo dì concetto è caduto con 
l'avvento sul mercato dì diversi pro- 
grammi che permettono di caricare in 
memoria è salvare su disco il program- 
ma senza mandarlo in esecuzione 
Questi programmi copiatori trasferisco- 
no il programma nella RAM sotto forma 
di numeri senza tradurlo in codice mac- 
china impedendone così l'esecuzione e 
rendendo quindi possibile la copia. 


Per togliere materialmente una prote- 
zione di questo genere, chiamata nor- 
malmente autorun (autostart) . bisogna 
sapere principalmente quale è il suo 
concetto di costruzione e poi avere delle 
piccole conoscenze di linguaggio mac- 
china per poter interpretare le istruzioni 
che costituiscono un programma di que- 
sto genere. 

Come prima cosa stabilirei esatta- 
mente come si fa a riconoscere se le 
protezione in questione è di questo tipo. 
Di solito l'automn presenta queste ca- 
ratteristiche: ammettendo di prendere 
un programma protetto in questo senso 
e di caricarlo con il normale sistema di 
caricamento resteremo impossibilitati, 
una volta finito il caricamento, di interve- 
nire In qualsiasi senso sul programma in 
oggetto. Sarà impossibile dare qualsiasi 
comando perchè il programma andrà in 
esecuzione senza richiedere nessun in- 
tervento ali 'operatore. 

I metodi per effettuare questo tipo di 
protezione si possono dividere in tre ca- 
tegorie distinte. Una prima fa uso del 
buffer di tastiera (spedali registri nei 


quali vengono memorizzati del caraneri 
o da tastiera o da programma} poiché 
esso viene svuotato alla fine di ogni ese- 
cuzione di caricamento o salvataggio, e 
cosi interpretalo dal computer. La se- 
conda. di tipo più complesso, come con- 
cetto, ma molto più semplice da realiz- 
zare, è la chiamata diretta alla routine di 
RUN che risiede nella memoria ROM. Il 
terzo tipo di autorun è profondamente 
diverso dagli altri due metodi e direi che 
è anche il più usato, perchè permette di 
caricare In modo sequenziale (cioè sen- 
za l'utilizzo di RUN o SYS) un altro pro- 
gramma strettamente legato nel ['utilizzo 
al precedente: ad esempio i leader (cari- 
catori) dei giochi sfruttano spesso que- 
sto sistema per impedire di salvare su 
supporto magnetico 11 programma prin- 
cipale che contiene il gioco vero e pro- 
prio 

Iniziamo ad analizzare il metodo che 
fa uso del buffer di tastiera. Possiamo 
realizzare la protezione sfruttando il fln- 
gu aggio macchina o il BASIC. 

Il buffer di tastiera è costituito da dieci 


36- Commodore 



locazioni di memoria che varino dà $277 
a $280 (in decimate da 631 a 640) r Per 
bufferizzare un carattere basta fare la 
POKE di quella locazione di memoria 
con il valore numerico che gir si vuote 
memorizzare. Naturalmente in ogni lo- 
cazione potrà essere contenuto non piò 
di un carattere, Alla fine delta immissio- 
ne dei caratteri in codice ASCII bisogne- 
rà anche corri unicare al computer quanti 
caratteri sono stati immessi; questo va- 
lore sì memorizza nella locazione $C6 
(#198) sempre con il metodo della PO- 


Il salto alia subroutine che parte dalla 
locazione SE544 consiste nella costru- 
zione della pagina video. Contiene quin- 
di anche la pulizia completa di schermo 
che è necessaria per evitare che il buffer 
di tastiera scriva su una linea già utiliz- 
zata impedendo al BASIC di eseguire il 
comando dì RLfN perchè non riconosce 
l'istruzione. Le linee che seguono me- 
morizzano un valore esadedmate nel- 
l'accumulatore (registro della CPU dove 
sì può memorizzare un dato che viene 
mantenuto fino af l'immissione di uno 


con un normale TIM (monitor in linguag- 
gio macchina). 

Il secondo metodo consiste in sole tre 
istruzioni in linguaggio macchina che 
utilizzano la chiamata diretta alla su- 
broutine contenuta nella ROM che pro- 
duce il RUN automatico. La prima istru- 
zione esegue un salto alla subroutine 
che rappresenta l'istruzióne CLR del 
BASIC; poi salta all'indirizzo SA68E che 
fornisce al programma dove inizia l'area 
BASIC e legge il contenuto al puntatore 
di carattere por if byte atto e basso. In 



KE. fi listato per realizzare questo pro- 
grammino in BASIC è mostrato in figura 
1 - 

Possiamo comunque realizzare que- 
sto programmino In linguaggio macchi- 
na ed utilizzarlo da BASIC con SYS 679 
traducendolo in DATA e locandolo con ii 
metodo di solito usato per i DATA dalla 
locazione 679 (locazione di partenza In 
decimale del programma). I f metodo uti- 
lizzato per leggere dei data possiamo 
vederlo nel listato in figura 2: utilizziamo 
una variabile dove memorizziamo la lo- 
cazione di memoria di partenza ed un 
ciclo di FGfl NEXT per incrementarla ad 
ogni lettura e la istruzione READ per 
leggere i DATA. In figura 3 c'è 11 disas- 
sem Piaggio di questa routine. 


nuovo) e lo trasferiscono nella locazione 
indicata con l'istruzione STA$xxxx, do- 
ve xxxx rappresenta la locazione di me- 
moria in cui deve essere memorizzato il 
contenuto dell’accumulatore, sempre in 
esadecimale, poiché gii assemblatori 
più comunemente utilizzati comprendo- 
no solo numeri esadecimali (per come 
viene organizzata internamente la strut- 
tura del calcolatore). 

L’ultima istruzione è un sarto alla loca- 
zione $0302 dove di sdito c'è l'indirizzo, 
che corrisponde alla routine di partenza 
del BASIC che è allocata a partire dalla 
locazione SA483. Per motivi di semplici- 
tà lascio a! lettore più interessato l'anali- 
si di questa routine che potrà trovare 
disassemblando il sistema operativo 


ultimo, salta alla locazione di memoria 
$A7AE che causa il RUN e quindi man- 
da in esecuzione if programma. Il pro- 
gramma si trova in figura 4 mentre il 
disassembfato in figura 5. 

il terzo metodo, un vero e proprio pro- 
gramma in linguaggio macchina per- 
mette di caricare un secondo file in mo- 
do automatico rispetto al primo. Il pro- 
gramma è locato in una zona dì memoria 
non interessata a nessuna variazione e 
più precisamente da $02C6 (#710) a 
$0306 (#779). Lo spazio che va da 
$02E4 a $02 F6 è riservato alla memo- 
rizzazione del nome del programma che 
deve essere caricato automaticamente 
da questa routine. In $Q2E4 è contenuta 
la lunghezza del nome e da S02E5 i 


ComitìOdO(B ■ 37 



caratteri che compongono II nome. 

Il programma inizia da SD2C6 e termi- 
na a Q2E1 e fa principalmente uso delle 
routine del KERNAL 
C r è una parte di programma {e più 
precisamente da $0300 a $0308) che 
modifica dei valori standard contenuti in 
queste locazioni per permettere dì posi’ 
zionare i vettori del BASIC sulla locazio- 
ne voluta che nel nostro caso è $02C6 P 
doè da dove inizia il programma, 
il tomai è una tabella di salti (insieme 
di istruzioni JMP) standardizzata che 
serve per gestire l'ingresso, ( uscita e le 
routine di gestione della memoria siste- 
ma operativo. Per semplificare i prò 
grammi in linguaggio macchina si fa 
spesso uso dì queste routine che sono 
allocate nell’ ultima pagina delia memo- 
ria ROM e più precisamente da $E000 a 
$FFFR 


Per usare la tabella dei saiti bisogna 
innanzitutto fare un saito con JSR nel 
punto esatto della tabella ed aspettare 
che il tomai riporti il controllo al nostro 
programma con un RTS dopo che avrà 
svolto le sue funzioni. Motti registri pos- 
sono ritornare parametri od averne biso- 
gno per funzionare come motti altri ritor- 
nano segnali d’errore che sono molto 
utili per trovare dove può essere lo sba- 
glio che pregiudica il buon funziona- 
mento del programma. 

Nel listato mostrato rn figura 6 usiamo 
quattro routine del tomai che adesso mi 
appresterò a descrivere durante la spie- 
gazione del programma. 

La routine a $FF90 controlla I mes- 
saggi di uscita del sistema e richiede che 
nell'accumulatore (registro A) sia me- 
morizzato un valore a seconda che si 
voglia avere solo messaggi di errore co- 


me DIVISION BY ZERO o solo messag- 
gi di controllo come PRESS PLAY GN 
TAPE o nessun messaggio; natural- 
mente il programma disabiliterà tutti ì 
comandi del sistema in maniera tale da 
non permettere all ‘utilizzatore di sapere 
cosa il processore in quel momento sta 
facendo. La prima istruzione infatti cari- 
ca nell’accumulatore il valore $00 che 
disabilita appunto tutti i messaggi del 
sistema. 

Dopo viene eseguito un salto ad una 
subroutine creata da me che si trova a 
$02 F7 che permette dì passare al siste- 
ma I parametrf del device di input tramite 
la routine del kemal. che si trova a 
SFFBA, Questa routine interessa ì regi- 
stri A, X, Y che rispettivamente devono 
contenere il numero del file logico, il nu- 
mero del dispositivo e l'indirizzo 
secondario. 

Abbiamo usato nstruzjone TAX per 
risparmiare un BYTE che comunque 
non cambia il significato richiesto dal 
kemal poiché questa istruzione trasferi- 
sce Il contenuto dell’accumulatore nel 
registro X. Nel caso di utilizzo del regi- 
stratore al posto di TAX bisognerà scri- 
vere LDX #$01 che indicherà come di- 
spositivo di input il registratore. 

La prossima routine che viene utiliz- 
zata è locata a $FFBD che serve per dire 
al sistema dove è locato il nome de) file 
da caricare. Bisogna caricare l’accumu- 
latore con la lunghezza d^l nome del file 
ed i registri X e Y con l'indirizzo dove è 
locato il nome del file che può essere 
una qualsiasi locazione dì memoria non 
influenzala da nessun parametro; l'indi- 
rizzo deve essere passato sotto stan- 
dard del 6502 e cioè byte basso/byte 
alto. 

L 1 ultima routine utilizzata è quella di 
LO AD locata a SFFD5: bisogna impo- 
stare l'accumulatore a 0 per caricare ed I 
registri X e Y se si desidera un carica- 
mento rìfocato. Come ultima cosa dare- 
mo una Istruzione JMP allindi rizzo di 
partenza del programma che verrà cari- 
cato, nel listato detta locazione è a 0000, 
sta ai lettore porre i giusti valori. 

Per la partenza di un programma BA- 
SIC purtroppo bisogna inserire al posto 
dell'Istruzione JMP la routine dì direct- 
caJI descritta prima e poi riaggiomare t 
puntatori di fine BASIC per evitare che il 


BUFFER BASIC 

10 LO Ali "HOME PRO % 8 * 1 
20 PRIIfrCCLEARr 
30 POKE 631 , 82 : POKE 632, 85 : POKE 
633, 73 : POKE 634,13 
40 POKE 198,4 


DIRECT CfiLL IN DfiTR 

10 LORD "NONE PRO", 8,1 
20 X-679 ' REM INDIRIZZO DI PRRTE 
NZR 

30 FOR V= 1 TO 9 

40 REFTD R : POKE X+V,R:REM LETTUR 
H DEI DRTR 
50 NEXTX, V 
60 SVS679 

70 DRTR 32,94,166,32,142,166,74, 
174, 167 
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programma sì scriva sopra se stesso 

Per ulteriori approfondimenti, la Gui- 
da di Riferimento del Programmatore 
fornisce tutti i particolari sulla gestione 
del kernel e le sue routine. Per quanto 
riguarda la costruzione dì un autorun 
personalizzato basterà utilizzare k> stes- 
so programma e cambiare i parametri 
d'interesse, Per quanto riguarda il nome 
bisogna inserire da $G2E5 il valore nu- 
merico dei caratteri in codice esadeci- 
male; la lunghezza del nome viene inse- 
rita sempre in codice esadedmale in 
S02E4. 

Per le modifiche bisogna senz'altro 
disporre di un monitor (programma che 
permette dì disassemblare zone di me- 
moria desiderate) e di alcune conoscen- 
te del linguaggio macchina. 


BUFFER IN URTA 

10 LORD "NOME PRO",*, 1 
20 X=679 : REM INDIRIZZO DI PARTE 
NZA 

30 FOR V=1 TO 30 

40 READ H : POKE X+Y , A : REM LETTUR 
A DEI DATA 
50 NEXTX, V 
60 SYS679 

79 DATA 32,68,225, 169,32, 141, 119 
,2, 163,85, 141,120,2, 163,78, 14 
1, 121,2, 163, 13, 141 

80 DATA 122,2, 169,4, 133, 138,76; 2 
,3 


ri > 

02H7 

20 

44 

E5 

JSR 

$E544 

m P 

02AA 

A3 

52 


LDR 

#$52 

* t 

02 A C 

SD 

77 

02 

STA 

$0277 

• J 

02AF 

A3 

ss 


LDR 

#$55 

m f 

02E1 

8D 

78 

02 

STR 

$0273 

m f 

02E4 

A3 

4E 


LDR 

#$4E 

• t 

02E6 

SD 

73 

02 

STA 

$0273 

ri t 

02E3 

A3 

@D 


LDR 

#$0D 

■ ,* 

02EB 

8D 

80 

02 

STA 

$0239 

• > 

02EE 

A3 

04 


LDR 

#$04 

- 

02C0 

35 

06 


STA 

$06 

É P 

0202 

60 

02 

03 

JMP 

<$S302> 

m t 

02C5 

00 



ERK 


r t 

Ó2R7 

20 

5E 

A6 

JSR 

$A65E 

m / 

02 AA 

2@ 

SE 

A 6 

JSR 

$B68E 

m f 

02 AD 

40 

RE 

R7 

JMP 

$H7AE 

m f 

02Btì 

00 



ERK 


f / 

0206 

A3 

00 


LDA 

#$00 

■ t 

0208 

20 

30 

FF 

JSR 

$FF3Ó 

* 

02CB 

20 

F7 

02 

JSR 

$Ó2F7 

n t 

02CE 

AD 

E4 

02 

LDA 

$02E4 

m f 

02 DI 

A2 

E5 


LDX 

#$E5 

« $ 

02D3 

H0 

02 


LDY 

#$02 

p / 

02DS 

20 

ED 

FF 

JSR 

$FFBD 

• * 

02D8 

A3 

00 


LDA 

#$00 

• t 

02HA 

A2 

FF 


LDX 

#$FF 

* ■' 

02DC 

A0 

FF 


LDV 

#$FF 

- J 

02DE 

20 

D5 

FF 

JSR 

$FFD5 

• / 

02E1 

40 

00 

00 

JMP 

$000tf 


02E4 

LA 

HOP 


02E5 

Efì 

NOP 


02E6 

ER ‘ 

NOP 


82E7 

Efl 

NOP 


Ó2E8 

Efì 

HOP 


02E3 

ER 

NOP 


02EA 

EA 

HOP 


02EE 

ER 

NOP 


02EC 

EA 

NOP 


02ED 

EA 

HOP 


02EE 

ER 

NOP 


02EF 

EA 

NOP 


02F0 

EA 

NOP 


02F1 

EA 

NOP 


02F2 

EA 

NOP 


02F3 

EA 

NOP 


02F4 

EA 

NOP 


02F5 

EA 

NOP 


02F6 

EA 

NOP 


02F7 

A3 03 

LDA 

#$03 

02F3 

AA 

TAX 


02FR 

A0 01 

LDV 

#$01 

02FC 

2Ò Bfì 

FF JSR 

$FFBA 

02FF 

60 

RT3 


0300 

C6 02 

DEC 

$02 

0302 

06 02 

DEC 

$02 

0304 

C6 02 

DEC 

$02 

0306 

06 02 

DEC 

$Ó2 

0308 

06 02 

DEC: 

$02 

030A 

06 @2 

DEC 

$02 

0300 

00 

BRK 
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Il resto cinese 


di Mariangela Gaudiose 


L'asserto (termine matematico che vuoi dire 
che si asserisce la dimostrazione di un teorema) 
noto sotto il nome di "TEOREMA CINESE DEL 
RESTO" ha avuto un ruolo essenziale nella di- 
mostrazione. avvenuta nel 1970. del teorema di 
Matyasevtch (giovane matematico russo) che for- 
nisce la soluzione al decimo dei ventitré impor- 
tanti problemi irrisolti di Hilbert- 

Hilbert è stato uno dei più importanti materna* 
tici della prima metà del nostro secolo. 

Questo decimo problema riguarda la risoluzio- 
ne dì equazioni polinomiali che devono avere co- 
me coefficienti e soluzioni solo numeri interi sia 
positivi che negativi e per questo sono note co- 
me "EQUAZIONI DIOFANTEE" (da Diofante di 
Alessandria che scrìsse un libro su tale argomento 
nel terzo secolo D.C.). 

Questo problema di Hilbert si propone di de- 
scrìvere una procedura con la quale sia possibi- 
le decidere se ogni equazione diofantea ammet- 
ta soluzioni. Quindi la richiesta non riguarda la 
ricerca di un metodo per trovare le soluzioni, ma 
semplicemente fornisce un procedimento atto a 
determinare se l'equazione considerata posseg- 
ga o meno soluzioni in quanto non è cruciale la 
natura detrequazione quanto quella delle solu- 
zioni ammesse. 

Per spiegare tutto ciò si passa ad esaminare 
un esempio pratico considerando le equazioni x 
/ 2 + y / 2—2 — 0 e x / 2 + y / 2—3 = 0; la prima 
dì queste, se non la sì considera come equazio- 
ne diofantea. ammette infinite soluzioni che pos- 
sono venire rappresentate con ì punti dì una cir- 
conferenza nel piano delimitato dagli assi x e y 
e il cui centro è jx>sto nell'origine degli assi e il 
raggio misura 

Tuttavia se la si considera come un'equazio- 
ne diofantea essa ammette solo quattro soluzio- 


ni intere che sono: x «1,y#— 1; x*1,y=1; 
x = 1 ,y — 1 ; x *1,y = — 1. 

Mentre la seconda equazione avrà, sempre se 
viene considerata come equazione usuale, un nu- 
mero infinito di soluzioni anch’esse rappresenta- 
bili con punti di una circonferenza con centro net- 
Torlgine degli assi e raggio Va, ma non avrà in- 
vece soluzioni nel caso la si consideri equazione 
diofantea in quanto non esiste nessun punto dì 
tale curva che abbia le coordinate simultanea- 
mente uguali ad un numero intero. 

Una famiglia di equazioni diofanfee è quindi 
rappresentabile come x / n + y/ n- z/ n con n 
uguale a 2,3 t 4 o a qualsiasi intero positivo. 

Nel caso in cui si abbia n - 2 la soluzione del- 
T equazione x/2 + y/2-z/2 è data dalla lunghez- 
za dei lati di un triangolo rettangolo ed è nota co* 
me teorema di Pitagora. Se n> = 3 l'equazione 
che si ottiene è nota sotto 11 nome di "EQUAZIO- 
NE DI FERMAT" e la sua dimostrazione (se mai 
fu ottenuta dal matematico francese) non è mai 
stata scoperta* 

Tutti gli esempi che sono stati illustrati hanno 
dimostrato come le equazioni diofantee siano fa- 
cili da scrìversi, ma molto complesse da risolver* 
si in quanto necessitano di condizioni molto esclu- 
sive riguardo il tipo di numeri da accettare come 
loro soluzioni. La domanda che può sorgere a 
questo punto è: 

perché é difficile trovare un metodo d'indagi- 
ne matematica del tipo di quello richiesto da Hil- 
bert? 

Una risposta immediata sarebbe quella di spe- 
rimentare tutti i possìbili valori delle incognite fi- 
no a trovare una soluzione. 

Questo procedimento, ammesso di poter utiliz- 
zare un computer, non potrebbe essere già più 
utilizzato per l'equazione considerata preceden- 
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temente x /2+y/2— 3 = 0 in quanto non riusci- 
remmo mai a stabilire se la coppia successiva po- 
trebbe o meno essere la soluzione desiderata. È 
per questo motivo che una tale dimostrazione ri- 
chiede considerazioni matematiche di nuovo ti- 
po. 

Un meccanismo in grado di ottenere un proce- 
dimento del tipo suggerito da Hilbert dovrebbe es- 
sere rappresentato da una macchina che può es- 
sere chiamata "macchina di Hilbert", la quale do- 
vrebbe accettare in ingresso i coefficienti di una 
qualunque equazione d iota n tea e come uscita do- 
vrebbe accendersi una luce verde nel caso in cui 
l'equazione ammetta una soluzione mentre s'ac- 
cende una luce rossa in caso contrario. (Fig, 1) 

A questo punto il problema che sorge è se sia 
possibile costruire una macchina a luce verde e 
rossa che si fermi sempre dopo un numero finito 
di passi fornendo sempre una risposta positiva 
o negativa. Quello che è stato dimostrato dal gio- 
vane matematico russo Matyasevich è che non 
potrà mai venir compilato un programma né co- 
strutta una macchina che esegua ciò che è stato 
postulato nel decimo problema di Hilbert. 

Per spiegare l'asserto precedente bisogna fa- 
re alcune considerazioni che riguardano la com- 
putabilità. Per questo si supponga che S indichi 
l'insieme dei numeri inferi: sarà quindi elencar- 
le solo se potrà essere costruita una macchina 
a luce verde che accetti come ingresso un qua- 
lunque numero intero e come uscita s'accenda 
la luce verde dopo un numero finito di passi se 
e solo se il numero intero in ingresso appartiene 
ad S mentre s'accenda la luce rossa se finterò 
non appartiene a detto insieme. 

Per una migliore comprensione di questo con- 
cetto si supponga che S indichi il complemento 
di S, cioè sia l’insieme di tutti gli interi che non 
appartengono ad S. Se ad esempio S è V insie- 
me dei numeri interi pari, S è l'insieme di quelli 
dispari. 

Si può dimostrare che se S è computabile af- 
iora sia S che S saranno elencabiii. Questo vuol 
dire che se esiste per S una macchina a luce ver- 
de e rossa allora esiste una macchina a luce ver- 
de per S e una a luce verde per s, (Fig. 2} È vera 
anche raffermatone inversa: se S e S sono elen- 
cabìli, allora S è computabile: in modo analogo 
sì può anche dire che se esiste una macchina a 


luce verde sta per S che per $, allora può essere 
costruita per S una macchina a luce verde e ros- 
sa. Tutto questo si può ottenere sostituendo nel- 
la macchina a luce verde per S la lampadina ver- 
de con una rossa e quindi si colleghino in paral- 
lelo le due macchine in modo che uno stesso in- 
gresso valga simultaneamente per entrambe in 
modo da ottenere una macchina a luce verde e 
rossa. (Fig. 3,4 e 5), 

Da queste considerazioni si può ricavare la so- 
luzione ad uno dei problemi più cruciali della teo- 
ria della computabilità che gioca un ruolo molto 
importante nella soluzione del decimo problema 
di Hilbert: cioè esiste un insieme K elencabile, ma 
non computabile, che in termini di una macchi- 
na di Hilbert, vuol dire che esiste una macchina 
a luce verde per K ma non è possìbile costruire 
una macchina a luce verde per il complemento 
di K, cioè per K. 

A questo riguardo, come si può essere sicuri che 
per K non esista alcuna macchina a luce verde? 
Per dimostrare questo si postula che esista una 
tale macchina corredata di un libretto di istruzio- 
ni e che dal momento che K è il complemento dì 
K, si avrà che comunque si fornisca un numero 
in ingresso, ad esempio 297, a tale macchina, es- 
sa si accenderà se e solo se in uscita M297 non 
si accende per 297; se questo si verificasse tutto 
ciò starebbe a significare che l'intero 297 appar- 
tiene a K e non a K. Quindi la macchina per K non 
è certamente M297, ma per la stessa ragione essa 
non coinciderà con nessuna Mn per qualunque 
altro valore di n, in quanto lo stesso ragionamento 
potrebbe venire applicato anche per ogni altro nu- 
mero, dimostrando che nell'elenco di tutti i libretti 
distruzione compare in nessun punto una mac- 
china a luce verde per K. Si ricava quindi che non 
può esistere alcuna macchina a luce verde per 
K cioè K non è elencabile. (Fig, 6 e 7). 

Quindi si può affermare che non esisterà mai 
un algoritmo per separare K da K. Tutto questo 
venne utilizzato da Matyasevich per dimostrare 
che ogni insieme elencabile può essere fatto cor- 
rispondere ad un'equazione diofantea; cioè se S 
è un'insieme elencabile esisterà allora un polino- 
mio P con coefficienti interi e con variabili 

x ,y1 ,y2 yn che corrisponde a tale insieme e 

che verrà indicato con P{x,y1 ,y2,,,,.,yn}. Dal risul- 
tato ottenuto dal matematico russo sì può otte- 
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nere un'equazione diofantea P ( x ,y1 ,y2,..,yn) = 0 
associata a tale insieme e se fosse possibile ia 
costruzione di una macchina a luce verde e ros- 
sa per verificare se esistono o meno soluzioni, al- 
lora per ogni intero x sì potrà stabilire se esisto- 
no o meno degli interi yl ,y2 s ...,yn per cui l'equa- 
zione precedente abbia soluzioni. 

Per far questo si arriverà anche a determinare 
se x appartiene o meno all'insieme k. 

Ma precedentemente si è già dimostrato che 
K non è computabile e quindi Tunica conclusio- 
ne che permette la soluzione di questo dilemma 
è quella di ammettere che non esiste alcuna mac- 
china dì Hilbert e quindi ottenere il risultato che 
il decimo problema di Hilbert non è risolubile. 

Come è stato detto all'inizio di questo articolo 
la dimostrazione di Matyasevich si basa sul TEO- 
REMA CINESE DEL RESTO che garantisce re- 
sistenza del più piccolo numero n che diviso per 
divisori dati dia resti predeterminati che devono 
essere interi positivi qualsiasi. Unica ipotesi richie- 
sta affinché si possa applicare il resto cinese è 
che nessuna coppia di divisori utilizzata abbia fat- 
tori comuni eccetto l'unità. 

Per illustrare il suddetto teorema, prima di pas- 
sare alla spiegazione del programma sul resto ci- 
nese qui allegato, si è voluto dare un esempio nu- 
merico, Si supponga di voler trovare un numero 
N che diviso rispettivamente per 10,3,7,1 1 dia co- 
me resti 4,2, 3,1, 

Per ottenere il numero desiderato si procede 
nel seguente modo: si indica con x il numero cer- 
cato e sì scrive quindi 

RES (x/10) = 4 RES (x/7) = 3 

RES ( x /3) = 2 RES (x/11)=t 

a questo punto per determinare x si devono ri- 
solvere quattro equazioni ausiliari in cui compaio- 
no quattro nuove incognite che indicheremo con 
yt,y2,y3,y4. I nuovi numeratori saranno dati da 
un coefficiente ottenuto moltiplicando tre dei di- 
visori per una delle nostre nuove incognite men- 
tre il denominatore sarà il quarto divisore; per me- 
glio illustrare questo procedimento si osserva che 
il primo numeratore sarà dato da 231 yl ottenuto 
nel seguente modo: 3 É 7“11 =231, analogamen- 
te si opera per gli altri e si ottiene: 


RES (231y1/10) = 4 RES (330y3/7) = 3 

RES (770y2/3) * 2 RES (210y4/11)=1 

a questo punto per trovare le nuove incognite 
si procede iterativamente sostituendo ad 
y1,y2,y3,y4 dei valori ad incrementarsi partendo 
da 1 sino a che il prodotto fra essi e i foro coeffi- 
cienti diviso il denominatore dìa jl resto richiesto. 

In termini numerici questo vuol dire che nel pri- 
mo caso si inizia con yl = 1 e si ottiene 
231 a 1/10 = 1 che non rappresenta il resto richie- 
sto e quindi si prova con yl = 2 r 3,4. Per quest’ul- 
timo valore di yl si ottiene 23 1 '4/10 = 4 che rap- 
presenta il resto voluto; quindi il valore cercato 
è yl =4. 

Questa operazione viene ripetuta per tutte le 
altre incognite. N numero cercato x si ottiene quin- 
di nel seguente modo: 

x = (23 1 ‘ 4) + (770 * 1 ) + (330 * 3) + (20 1 * 1 ) = 2894 

che è quindi un possibile valore di x. Per tro- 
vare il più piccolo valore di x si deve sottrarre 
al valore trovato il prodotto dei quattro divisori 
cioè: 

2894— (10*3* 7 # 1 1) = 584 

che rappresenta la più pìccola soluzione del 
problema. 

Per concludere si vuole Illustrare come è stato 
strutturato il programma per il COMMODORE 64. 

Nella prima parte si esegue il test per verìfica- 
re che i quattro divisori immessi non abbiano ter- 
mini in comune; per far questo è stato utilizzato 
l'algoritmo del M.C.D, trattato nelTarticolo 
‘ ‘SCOMPOSIZIONE DI UN NUMERO DI FATTO- 
RI PRIMI, CALCOLO DEL M.C.D. E DEL m.c.m 
FRA DUE NUMERI" e quindi si passa ai confronto 
dei divisori fra loro. 

La seconda parte del programma riguarda il cal- 
colo vero e proprio del resto cinese nella sequen- 
za che è stata illustrata nell’esempio numerico 
precedentemente descritto. 

A conclusione di questo articolo viene riporta- 
to il listato del programma in linguaggio BASIC 
del "RESTO CINESE". 
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Fio. 3 


POSSO INVECE UTILIZZARE 
UNA MACCHINA a luce verde 
PER Ej Piu' UNA MACCHINA 
A LUCE VERDE PER IL 
COMPLEMENTO PI 5... 



F1G4 




UNA LAMPADINA rossa PER 

COSTRUIRE UNA MACCHINA A 

luce verde, e rossa per s 




o 


x 2 +y J - 2 =o 


/ / 

o 

y 2 +y 2 -3- 0 

/ 


flc 5 



F1G 6 
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i0@ rem **************4 4**4****** 
** 

105 REM * 

* 

110 REM * RESTO CINESE 

* 

115 REM * BI 

* 

120 REM * MflRIftN6EL.fi GUARDI ONE 
* 

125 REM * 

* 

136 REM **#444*4*4#*#***#4******* 
** 

1 35 li I M fl ( 56 > , B <50 )/C< 56 > , JK 50 > , 
R<4.) 

149 REM *********4#**** *#*#*##*#* 

*4 

145 REM # RINVIO SUBROUTINE INPUT 
* 

15*3 REM 4*+44***** *************** 
** 

155 GOSUB 326 

160 REM 4*4********** ********* ♦ 44 

m 

165 REM * INIZIO CALCOLO PEL 

* 

170 REM * RESTO CINESE 
* 

175 rem *44******************4*** 
** 

186 HUM=B < 0 > *C < y > * B < i.i ■ BEH =8(0 1 R 
R=R< l> ■ GOSUB 27 c; Vl-I 
1S5 Vt=Y14NUH 

1 y0 NUM=H < 0 > #C < 0 > #B < 0 * : I€ N=B < 6 > : R 
P=R < 2) : GOSUB 275 Y£= I 


195 V2=V2*HUM 

200 NUM=fl < 0 > *B< 0 *D < 0 > : I€N=C < 0 > ; R 
R»R < 3 > • GOSUB 275 • V3= I 
265 Y3=V3*KUM 

2t0 H< !M*fl < 0 > * B < O > 4C < 6> ; BEN=IK 6 > : R 
R =P < 4 > • OOSIJB 275 : V4= I 
215 V4=V4*NUM 
220 REM ***##*4 444**4**** 

225 REM * MINIMO NUMERO 4 
230 REM 44*4*4 * 4444*4 4**4 
235 N=V1 +V2+V3+V4-A <0 > 4B < 0 > 4C < 0 > 4 
B<0> ■ 

24fi ERI NT N.'‘CRVS]E‘ IL NUMERO CE 
RCflTOCRVOFF] " 

245 I HPUT " VUO I CONTI MURRE < S/N ) " ; 
Si 

250 TF SÌ="S" THEH 155 
255 END 

260 REM ■444*4*4*44*4444*44*4*4*44 
*4 

265 REM 4 SUBROUTINE RESTO CINESE 
4 

276 REM *44**44* 444**44*44**4**4* 
** 

£75 1=1 

2S0 RS= I NT < . 2 + < < NUM# I /DEH > - 1 NT < NU 
H*I/BEN> >*BEH> 

265 IF RS>=RR’ THEH RETURN 
290 I=I+l : GOTO 260 

295 REM ***44**4*****4:*44*****4*+ 
*4* 

3@0 REM 4 INIZIO CONFRONTO DIV. 

* 

3@5 REM * SCOMPOSIZIONE IN FflTTOR 
I * 

316 REM 4 PRIMO DIVISORE 
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* 

315 REM ************************* 
*#* 

320 INPUT !* IMPOSTORE IL PRIMO PIV 
ISORE" ;OC0> : FLOG=0 : KO=l : N=fi(0 

> 

325 1=2 

330 IF I>=N THEN 305 
335 IF <<N/I>- T .NKN/i:>>=0 THEN 35 
© 

340 IF OH/2 THEN OH -GOTO 365 
345 1=1+1 GOTO 330 
350 FLRG= 1 

355 M-H/I : FKK0) = I : K0=K0+1 : IF N=1 
THEN 375 

360 GOTO- 325 

365 IF FL.RG=0 THEN fK 1> =H : KO=2 : GO 
TO 375 

370 GOTO 350 
375 TN=K0-1 

330 REM ************************* 
*** 

335 REM * SCOMPOSIZIONE IN F ATTOR 
I * 

33S REM * SECONDO DIVISORE 

* 

335 REM ****** *********** ******** 
*** 

400 INPUT "IMPOSTARE IL SECONDO D 
I V I SORE " ; E ( 0 > : FLHG=0 - KO= 1 : H=E 

405 1=2 

410 EF I>=M THEN 445 
415 IF < <>1/I ) - INT LM/I > >=0 THEN 43 
0 

420 IF I >M/2 THEN I-ICGOTR 445 
425 1=1+1 = GOTO 410 
430 FLAG= 1 

435 M=M/ I B < KO >=I - KD=KO+ 1 IF M=1 
THEN 475 
440 GOTO 405 

445 IF FLAG=@ THEN E CI }=M : K0=2 : GO 
TO 475 

450 GOTO 400 

455 REM * * * ***** * * * * * * * * * *** ***** 
*** 

46@ REM * CONFRONTO DI FATTORI FR 
R ^ 

465 REM * PRIMO E SECONDO DIVI SOR 

E * 

470 REM ************************* 


*** 

475 TPNKO-1 HD=1 
430 FOR 1=1 TO TH 
435 FOR J=1 TO TM 
430 IF fiCI >=B<J> THEN MD=MD*E'. J>- 
BCJ>=0- J=TM 
435 NE/TJ 
500 HE /TI 

5tì5 IF MDM THEN FRI NT "IL SECONDO 
DIVISORE HA FATTORI IH COMUN 
E CON IL PRIMO! "GOTO 400 
510 REM ************************* 
*** 

515 REM * SCOMPOSIZIONE IN F ATTOR 
I * 

520 REM * TERZO DIVISORE 
* 

525 REM ************************* 
*** 

530 INPUT "IMPOSTARE IL TERZO DIV 
ISORE" J C<0> - FLAG=0 : KO=l ■ P=C£0 
> 

535 1=2 

540 IF I>=P THEN 575 
545 IF < <P/I >-I NT (P/I > > =0 THEN 56 
8 

550 IF I0P/2 THEN I=P : GOTO 575 
555 1 = 1 + 1 : GOTO 540 
560 FLRG=1 

565 P=P/ I : C £ KO > = I • KO=KO+ 1 : 1 F P= 1 
THEN 605 
570 LOTO 535 

575 IF FLAG=0 THEN C<1 >=P - K0=2 • GO 
Tu 605 

53Ó GOTO 560 

535 REM ************************* 
*** 

590 REM * CONFRONTO DI FATTORI FR 
FT $ 

535 REM * PRIMO E TERZO DIVISORE 

* 

600 REM ************************* 
*** 

6G5 TF-KO- 1 :HD=1 

610 FOR 1=1 TO TN 

615 FOR J=1 TO TP 

62tì IF H< I >=C(-T) THEN MD=MD*CC J> : 

CCJ)=0 : J=TP 
625 NEXTJ 
630 HE/T I 

635 IF MD>1 THEN FRI NT" IL TERZO D 
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I V I SORE HA FATTORI IH COMUNE 
CON IL PRIMO! "-GOTO 530 
S4e REM :♦#**#*******+:#*******♦**+ 

645 REM # CONFRONTO DI FATTORI FR 
A + 

650 REM + FECONDO E TERZO DIVI SOR 
E * 

655 REM 

660 FOR 1=1 TO TM 
665 FOR C-l TO TP 
670 IF B< I )=C< J> THEN MD=MD#C<J) : 

C < J > =0 : J =TP 
675 NEXTJ 
680 NEXTI 

685 IF MD>1 THEN FRI NT "IL TERZO D 
I VISÓRE HA FATTORI IN COMUNE 
CON IL SECONDO !": GOTO 530 
690 REM +####**##**##*####!((#####* 
*** 

695 REM * SCOMPOSIZIONE IN F ATTOR 
I * 

700 REM * QUARTO DIVISORE 
* 

705 REM *#*##**#**#***###*#**##** 
**# 

710 INPUT "IMPOSTARE IL QUARTO HI 
V I SORE " B < 0 > ■ FLAGRO ; KO= 1 : Q«D < 
0 ) 

720 IF I>=Q THEN 755 

725 IF <<Q/IWHTCQXI> j =0 THEN 74 

'0 

730 IE I >Q /2 THEN I =Q - GOTO 755 
735 1 = 1+1 GOTO 720 
740 FLAGRI 

745 Q»Q/ TC( KO > = I ■ KO=KO + 1 : I F Q =1 
THEN 785 
750 GOTO 715 

755 IF FLAG -0 THEN DCI >~ 9 , '■ K 0=2 GC 
TO 785 

760 GOTO 740 

765 REM *:+***$******#■**$$*****+-*:* 

m*. 

770 REM * CONFRONTO DI FATTORI FR 
A * 

775 REM * PRIMO E QUARTO DIVISORE 
* 

730 rem *ww*mm**M*m****.**** 

m* 


785 TQ=Kfj-l MD =1 

790 FOR 1=1 TO TN 

795 FOR J =1 TO TQ 

800 IF Aa)=DCJ> THEN MB=MB*D<J> : 

D<J>* 0 : J=TQ 
8 S 5 NEXTJ 
810 NEXTI 

SIS IF MIDI THEN FRI NT "IL QUARTO 
DIVISORE HA FATTORI IN COMUNE 
CON IL PRIMO i GOTO 710 
S 20 REM' *#**#*#*###*###**#***:*#** 
#*# 

S 25 REM # CONFRONTO DI FATTORI FR 
A $ 

830 REM *] SECONDO E QUARTO DIVISO 
* RE* ' 

835 REM a*#*#####*#####* *:**’* ***** 
$$$ 

846 FOR 1=1 TO TM 
845 FOR J =1 TO TQ 
350 IF Ba>=IKJ> THEN MD=MD*DC J) ' 
D<J)= 0 : J=TQ 
355 NEXTJ 
860 NEXTI 

865 IF MD > 1 THEN PRINT"IL QUARTO 
DIVISORE HA FATTORI IN COMUNE 
CON IL SECONDO !" : GOTO 718 
870 REM *#*##**##*#*##********'#*# 
m* 

875 REM * CONFRONTO DI FATTORI FR 
A ** 

880 REM * TERZO E QUARTO DIVISORE 

* 

885 REM **##********#****'*#****** 
#$* 

830 FOR 1=1 TO TP 
895 FOR J =1 TO TQ 
900 I F C < I ’>=D < J > THEN UD=MIi*D C J > ■ 
D<Jj= 0 : J=TQ 
985 NEXTJ 
910 NEXTI 

915 IF MICI THEN FRI NT" IL QUARTO 
DIVISORE HA FATTORI IN COMUNE 
CON IL TERZO!" -GOTO 710 
92 y rem mmmw**w***mmm 

925 REM * INPUT DEI RESTI * 

930 rem 

935 FOR- 1 = 1 T 0 4 : FRI NT "IMPOSTARE 
IL"; I ; " 0 RESTO " I NPUT R a > 

940 NEXTI 
945 RETURN 
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Vendo Magic Desk a L 1(1000. Vendo 
traduzione italiana riveduta e corratta 
del Manuale d'uso. (Gitano Remore - 
V« Amasene, 6-04100 Latine) 

Vaodo/Cemb» Atari VCS 2600 e mesi 
+■ Supercharger + 7 cassette. Cambio 
(eveniate conguaglio} con C54. (Ste- 
fano Saia - Via S. Gonna. 29 - *5*00 
Alessandria -Tel 0131-51823} 

Vendo vrieogwec Alan con dodici car- 
tucce gioco ai miglior offerente (Edoar- 
do Zappa - Via Stendhal. 19 20144 
Milane - Tei. 02-4227764 ore pasti 
serali). 

Vendo Commodore Vìe 20 + vari vi- 
deogiochi e vari programmi Tutto a L. 
250.000= (Cesare Susanna - Via S, fla- 
ria, 2 -00199 Roma Tei 06-8388577). 

Vftrtda tastiera Vie 20 + 16K espansio- 
ne + Tìie Ve 20 GamesBook t Cartrid- 
ge Aiien + Alia scoperta del Vie + 1 
cassetta giochi a L 370 000. Cassette 
giochi a parie L 6.000 (Walter Galton» - 
Vie dei Mille, 26 - 00185 Roma Tel 
06-4950604} 

Vendo per Vie 20 nuovissimo cartrkige 
TurtxSape per usare N registratore alla 
YOlorità di un deco con connettore per 
eventuali espansioni di memoria. L 

38.000 comprese spese postali Vte- 
mon L, 29 000. Programmar's Aid L. 
29.000. Momertnand L 35 000. (Gianni 
Moria Bozzi Via Savena lé/s • 20099 
Sesto San Giovarmi MI - Tel 02- 
2407825 ). 

Vanda Vie 20 ri ottimo stato con due 
cassette di giochi, numero»! listati a L 

200.000 (OMenco Cavate - Wa D Car- 
bone, 4 - 15050 Vdlabemm - AJessan 
dna -Tel 0131-83150 ore pasti} 

Vendo Vie 20 con registratore pio serie 
programmi. (Roberto Covanti - Vìa Ser 
ré fùnga, 52 - 60044 Feùnanù - Tei, 
0732-39 15 ore pasti) 

Vanda Commodore 64. registratore 
dedicato. 2 cassette vvteogioc o ed altre 


3 con programmi vari Nuovo maggio 
'84. usato poohéssmo a L 660 000^ 
(Alfonso Cantarella - V/a Mercato, 2 - 
84015 «deara Superiore - Tel L 081- 
934350 ore: 13-1422-23) 

Vendo corso di baste per ogni Compu- 
ter, manuale dettagliatissimo con tanti 
esempi e programmi e coreo generale 
per l'Ulivo e l'impiego del computer a 
L 18000 per manuale. (Guido Gfvdeto 
- Via Campioni, 9 43040 Felegara 

(m 

Vendo Vie 20 con cavi e aimeiìtaiari, 
manuali + Registratone Commodore 
G2N + Superexpamder 4- Gartndge So 
Ear System + televisori™ b/n 16 pollici 
+ coprisislema + cassette di software 
didattico, gestionale di uiiHty, di grafica 
tridimensionale, qualche gioco +■ libro 
^Grafica per Vie- per ta 5. Expander, 
Tutto alI'incrediWe prezzò di L 
490,000- non tratta&te (Andrea 3 uffe- 
gnì- Va G Peano. 6- 4* J00 Modena 
Tel 059-354424 ore pasti). 

Vendo per Commodore 064 disco e 
manuale in Italiano per lo sblocco di 
qualsiasi programma protetto e 2 Bac- 
kup speciali prezzo L 66 000 tutto com 
preso. (Leonardo Landtoi - Via Comes, 
5 -50100 Firenze) 

Vendo Computer Vie 20 + registratore 
dedicato + corso base + joystick + 4 
cartndge (Vte Avenger/Rald on Fort 
Knox/Mtesion Impos&ble Adventure/ 
Super Alien} + 120 giochi su nastro. 
Tutto completo di manuale a L 
400.000= (Eugenio Afelio -Via A Mo- 
ro trav Non. 20-89100 Reggio Cala- 
bria - 7&. 590568 ora Z 1-23 14-15). 

Vendo Commodore 64+120 pro- 
grammi van a prezzo modico. (Giusep- 
pe Borracci Vi» Marne*. 75 - 33 fOO 
Udine - Tei 0432-29 1665 , ore *3- *3.30 
21-22). 

Vendo causa regate nuovo computer. 
Sinclair ZX81 memoria 16K manuale 
in ilaliano. cassetta gioco scacchi origi- 
nale. fi tutto usato pochissimo a sole L 


200 000- Francesco Monaco ■ Via 
Porti, 74/1 - 20090 Sesto San Giovanni 
MI Tel. 02-2421334 ore 19.30-20,30). 

Vendo Ve 20 + 4 registratore + 4 car- 
tucce di giochi lem imballo originale) 
perchè ne ho avuti due n regate in giu- 
gno, a L 280.000. mai usato. (Sergio 
Santoro - Via Agnolotti, 20 - 50047 Pra- 
to - Tel 0574 465904 alle mattina). 

Vendo Vte 20 completo di manuale 
istruzioni + interessantissimo Itero di 
grafica per it Vte, L imOQO con pro- 
grammi m omaggio. (Luce Mosmt - Via 
E Chièsa. 55 - 00139 Roma - Tei. 06- 
8107685 ore 12-14). 

Vendo registratore Phonemark nuovo 
per il Vie 20 e Commodore 64 a L 
75.000. (prancesctiini - V<a Melone . 7 - 
20 *48 Milano - TeL 02-3272886 ore 9- 
121 

Venda Vte 20 + registratore + espan- 
sione di memoria 16 K + 4 videogcchi, 
ancora imballato a prezzo eccezionale 
L 400 000* {Raffaele Addeo - Vte 
Tremo, UC - 20060 Caseìna de' Pecchi 
MI Tei . 02-9528793 ore serali). 

Vendo a L. 500 000 floppy disk 1541. 
non trattabili perchè nuovo (è in garan- 
zia) Vendo mctlre morissimi nuovi ga- 
mes (jurnpHtian, Olimpiadi. Basket Kil- 
ler waner. eoe.) ed utility tra cui Condo- 
minio, G' Pascal, Foriti, Doudle (nuovo 
Supenprogramma per disegnare, occu- 
pa un disco intero). 5.5 Fast copy, prezz i 
da regalo. (Omelia Vergetti - Via Castel 
lo, 6574 * 30122 Venezia) 

Vendo interfaccia per collegare al Vie 
20 od al Commodore 64 guaisiasi regi- 
stratore Nuovissima L 20.000 tratt 
VendOJ'ScamtNO programmi molto buo- 
ni a prezzi bassissimi, utility, giochi 
(Roberto Fusco - Via Crocifisso VG - 
0 1 100 Viterbo - Tel. 0761-220383) 

Vendo Vte 20 4 registratore C2N + 
Super expander +SK Ram + B stot + 
Prog Retorence + Ve Reveteed + 2 
cassette programmi a 1; 550.000 tratta- 


bili Preferibilmente tratto di persona. 
(Domenico Poz zem - V ie Vttgtto. 48 - 
34 ITO Gorizia Tel. 83775). 

Venda Vte 20 completo di manuale di 
istruzioni -impariamo il basic con II Vie/ 
CBM - Qur.'a al Personal Vte 20* con 
mappe di memoria + una cassetta di 
giochi e utility tutto a L. 150 000 Vendo 
causa passaggio a sistema superiora 
(Salvatore Sassi Vie San Lazzaro 
cooi. Alta - 85170 feemia Tel. 0865- 
59 1 12-5 1604 ore: 13,30- 75.30 dopo te 
22 ). 

Venda vte 20 + espansione 16K + 
Mother Board + Tool Kil + Cartuccia 
Gcri+Montor in linguaggio macchina 
+ registratore Commodore + libro -Im 
parnvnp a programmare con il Vte e 
BM - + cassette originali come Skram- 
bte. Furai Power, Load'n Rgn, program 
mi. ecc. più vane copte di giochi come 
jet Pac. Catch Snatcha Pades andMu- 
tem. Escape M.C.P e motti alto in tutto 
sono piu di 200 programmi, ho anche 
moltissime utility per la casa e il nego- 
zio. Sono a disposizione di chiunque 
voglia provare il tutto prima di un even- 
tuale acquisto. Vendo tutto Jl btocco per 
L 550.000— trattabili; valore commer- 
ciate più di L. 900 OOO- PS Offro ed 
esigo massima serietà. Tele tona ne di 
pomeriggio fino alte ore 17,00 0 è sera 
dopo te 21. (Mimmo Moraca - Piazza 
Pi] agora, 32 - 88074 Crotone - Tel. 
0962-25307), 

Vendo islmzioni Vie 20 e istruzioni llop- 
py disk drive in italiano, sempre in italia- 
no vendo manuali Simon s Baste e Easy 
Script. Tavoletta grafica per CBM 64 
Prezzi veramente ottimi frftMtfm di 
Paolo al numero tefefonteò 077- 
895579) 

Vanda a prezzo eccezionale solo L. 
50 000, TV Sport collegabile a televisio- 
ne a colori o in b/n con 6 giochi- calcio, 
squash, training, tennis, tiro a segno 
con pistola e fiictle inclusi Diverse pos- 
sibilità di gioco (Luca Arpenght - Via 
Marco Poto , 29 ■ 67032 Fano Tel 
0721-861068). 


4B - Commodore 




Registrate il mio abbonamento annuale a Commodore, 

! Ho versato oggi stesso il canone di Lire 25,000 a mezzo c/c postate n° 31532203 intestato a: 
Commodore Systems Editoriale - v ie Famagosta, 75 - 20142 Milano 
O Accludo assegno per lire 25.000 banca n° a favore di 

Commodore Systems Editoriale 
Il mio computer è: VIC 20 □. C 64 E 1 T altro (specificare) 

Ho non ho □ la stampante, ma voglio ; compraria. 

Preferisco programmi di gioco □, didattici Q, d'utilità □, altro 

Nome . _ Cognome 

Via _n* CAP. MIMI citta 

TeL 


Registratemi fra i collaboratori regolari di Commodore. 

A titolo di prova vi invio un articolo e la cassetta cot programma * 


di cui vi garantisco l'assoluta originai ita autori zzandovene la pubblicazione. 


□ Scrivetemi atlindìrizzo sottoindicato 




CAP 


Città 


.. lì* 


CAP. MIMI Città 


Orario 


Vie 20 D 
C 64 □ 

Floppy □ 
Stampante □ 
Plotter □ 
Registratore □ 


espanso a _ K 

quale: 1 541 □ 
quale: MPS801 O 
quale: 1 520 □ 
quale: 1530 □ 


Sono in 


Ho intenzione 

possesso 

No 

di acquistare 

O 

□ 

□ 

□ 

□ 

n 

□ 

D 

□ 

□ 

O 

□ 

□ 

n 

n 

□ 

□ 

□ 


m Televisore □, TV -Monitor O, Monitor O p Colore □, B/N □ 

■ Nome . — ♦ ™_ - Cognome 


...qo . 


CAP. LLLLiJ Città 


Vendo □ Compro □ _ . 


Nome 


. m.- CAP. 

Orario 




Città 




cc m 

1 Spett.le rivista 

| Commodore Z 

1 Systems Editoriale ■ 

.E m 

% v.le Famagosta, 75 ■ 

1 20142 Milano Z 

& 

Si, voglio 
abbonarmi 

s ■ 

S Spett.le rivista ■ 

| Commodore l 

% Systems Editoriale ■ 

ja ■ 

.E • 

% v.le Famagosta, 75 ■ 

1: 20142 Milano Z 

■ 

Si, voglio 
collaborare 

« * 

| Spett.le rivista ■ 

| Commodore ■ 

| Systems Editoriale ■ 

c ■ 

1 v.le Famagosta, 75 " 

1 20142 Milano 

s i 

Si, chiedo 
consiglio 

™ ■ 

.1 Spett.le rivista ■ 

| Commodore Z 

§ Systems Editoriale ■ 

C ■ 

2 v.le Famagosta, 75 ■ 

1 20142 Milano Z 

i : 

Si, voglio 
votare 

21 

Spett.le rivista ; 

Systems Editoriale *■ 

v.le Famagosta, 75 0 

20142 Milano l 

m 

Si vendo/ 
compro 


KH computer System 

s.a.s. di Gloriano Rossi e C. 


C.so Porta Nuova 46 - 20121 Milano 
Tel. 02/6599547-6575115 - Telex 324331 


rivenditore autorizzato 

C* Commodore 




Software 


Prodotti 

Accessori 

Assistenza 


Assistenza software per Commodore, Sanyo, NCR, Sirius-Victor e tutti i 
personal compatibili IBM-PC. 

KHMODEM, il demodulatore ideale per la trasmissione e ricezione dei dati 
(Baudot, ASCII, RTTY, CW). 


Rivenditori di zona: 

CREMA: EDP ANSWER di A. Guerei - Via Borletto 1 - Tel. 0373-59140 
BIELLA: H.D.S, Home Data System di Mantellaro - Vìa Italia 50/a - Tel. 015-28620 




Un'iniziativa condotta con 
la nota rivista Computer 


PROGRAMMO IN 
BASIC 

ti linguaggio dei futura in un 
marmate rapido e compito ci 

Qitx> Marti 
P*gg 224 (L V OGO) 
fi Basic, attualmente It 
linguaggio più conosciuto - 
adatto jH'utrNwo su qualunque 
tipo di macchina q In 
particolare sui personal e gli 
hnme-oomputer - pud essere 
appreso in poche ore con 
l'ausilio di questo agile 
manuale, 


COME SCEGLIERE UN 
COMPUTER 

Guida pratica par i acquisto dì 


UTILITY E ROUTINE 
PER IL 

COMMODORE 84 

di Gloriano Rossi 
pagQ 19 2 (L 9000 ì 
l. 'esecuzione di una is Eruzione 
BASIC può richiedere diverse 
centinaia di passi di programmi 
in linguaggio macchina. La 
dimensiona dai programmi è 
ciò che intimidisca 
maggiormente futili calore 
medio di Commodore: aiutato 
da questo teslo chiunque potrà 
affrontare senza problemi ir 
processo di scrittura di un 
programma. 


BASIC PER LO 
SPECTRUM 

di Maurizio Anena e Qtido Morti 
pagg 192 (L 9.000) 

Un libro per quanti hanno 
acquistalo il computer ZX 
Spèctrum delia Sinclair e 
intendono sfruttarne appieno 
tutte Po capacità, daJJ 'hardware 
alla programmazione in 
assenti ly (linguaggio 
macchina). 


Di Pisa 

pagg f SO fi 6000) 

Quale modero scegl» re fra gii 
oltre 600 computer 
commercializzati in Ila Ira? La 
conoscenza dalle 
caratteristiche delle varie 
macchino è indispensabile Con 
un approccio a "menu" 

! 'Autore vuol essere guida 
proprio in questa lese 


I volumi,, che seco comunque in vendita nelle migliori librerie d» tutta Italia, 
possono anche essere richiesti direttamente ali'Ectilore, 1 

Importante: r ordine mìnimo dovrà essere di L. 15.000, 


1 Edizioni ACANTHUS 

JÈxà VIALE GRAN SASSO, 23 - 20131 MILANO 


spese postali 


Pagherò contiassogno il dovuto (più L 2.000 per contributo spese postala! ricevimento 
Potrò restituirà i libri entro a giorni so non saranno dii mio gradimento e avare II rimbor- 
so immediato. 


DIZIONARIO 

DELL'INFORMATICA 

Vocabolario ìngiese-ltatiano di 
Cuttmra, Qi Pisa, Gi&cvtnetit 
pagg m (L 25 000 J 
Uno strumento Indispensabile 
per cha si avvicina a! mondo 
deli Informatica ai por gii 
specialisti che hanno l 'esigenza 
di accederò alla dinamica 
letteratura anglosassone. 


FIRMA 


DATA 


DIZIONARIO 

dell 1 

INFORMATICA 


Scrivere in stampatolo e spettora in busta chiusa. 








